diff --git a/R/measurement_utils.R b/R/measurement_utils.R index a4aba4c..26d1741 100644 --- a/R/measurement_utils.R +++ b/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) }