knitr::opts_chunk$set(echo = FALSE, 
                      cache = TRUE,
                      fig.align = "center")
library(senseBox)
library(tidyverse)

theme_update(axis.text = element_text(size = 14),
         axis.title = element_text(size = 14, face = "bold"),
         legend.text = element_text(size = 12),
         legend.title = element_text(size = 12, face = "bold"))
data <- search_senseBox()
table <- data %>% 
  filter(is.na(lastMeasurementAt)) %>% 
  select(senseBoxId, name, lastMeasurementAt)
knitr::kable(
  table,
  format = "html"
)


JohannesFriedrich/senseBox documentation built on Nov. 8, 2021, 3:02 p.m.