From 51595f12393dfe3392c96554b9719910691244f7 Mon Sep 17 00:00:00 2001
From: noerw <noerw@gmx.de>
Date: Thu, 24 Aug 2017 13:57:15 +0200
Subject: [PATCH] make plot.osem_measurements() more robust

---
 R/measurement_utils.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/measurement_utils.R b/R/measurement_utils.R
index 26d1741..0b578a6 100644
--- a/R/measurement_utils.R
+++ b/R/measurement_utils.R
@@ -2,7 +2,7 @@
 plot.osem_measurements = function (x, ...) {
   oldpar = par()
   par(mar = c(2,4,1,1))
-  plot(value~createdAt, x, col = x$sensorId, xlab = NA, ylab = x$unit[1], ...)
+  plot(value~createdAt, x, col = factor(x$sensorId), xlab = NA, ylab = x$unit[1], ...)
   par(mar = oldpar$mar)
   invisible(x)
 }