show units in measurements plot

R/measurement_utils.R

@@ -1,6 +1,8 @@
 #' @export
 plot.osem_measurements = function (x, ...) {
-  # TODO: group/color by sensor_id
-  plot(value~createdAt, x, col = x$sensorId, ...)
+  oldpar = par()
+  par(mar = c(2,4,1,1))
+  plot(value~createdAt, x, col = x$sensorId, xlab = NA, ylab = x$unit[1], ...)
+  par(mar = oldpar$mar)
   invisible(x)
 }