log_sensibo.R

sensorID = "Your sensibo ID"
apikey = readLines("sensibo.api")
## commented lines run only once
# file.create("./sensibo.csv")
# data <- jsonlite::fromJSON(url)$result
# write(as.character(names(data)), "./sensibo.csv", sep=",")
url = paste0("https://home.sensibo.com/api/v2/pods/", sensorID, "/measurements?apiKey=", apikey)
while(1 == 1){
    data <- jsonlite::fromJSON(url)$result
    text <- paste(as.character(unlist(data)), collapse = ",") 
    write(text, "./sensibo.csv", append = T)
    Sys.sleep(120)
}

# in terminal run:
# nohup Rscript scripts/log_sensibo.R  &>/dev/null &