EmbeddedSensors

suppressMessages(dat <- read_campbell(here("RebarStrain02_RebarMeter.dat")))
dat <- gather(dat, key = "variable", value = "value", -TIMESTAMP)
# unique(dat$variable)

lims <- as.POSIXct(c(as.Date(dat$TIMESTAMP[1]), today() + 7))

for (i in unique(dat$variable)){
  dat1 <- dat %>% 
    filter(variable == i)
  
  varname <- dat1$variable[1]
  print(
    ggplot(dat1, aes(TIMESTAMP, value)) +
      geom_line() +
      ylab(varname) +
      scale_x_datetime(date_minor_breaks = "7 days", 
                       date_breaks = "14 days",
                       limits = lims)
    )
}