opensensemap/opensensmapR
1
0
Fork 0
mirror of https://github.com/sensebox/opensensmapr synced 2025-04-06 13:30:26 +02:00
Code Issues Releases Wiki Activity

fix sensorType for empty ones

Browse source
This commit is contained in:
jan 2023-01-31 17:13:41 +01:00
parent 379b38046d
commit 0529dd9a29
1 changed files with 6 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
R/box.R
View file

@ -105,6 +105,7 @@ osem_boxes = function (exposure = NA, model = NA, grouptag = NA,
else if (!is.na(date)) else if (!is.na(date))
query$date = date_as_utc(date) %>% date_as_isostring() query$date = date_as_utc(date) %>% date_as_isostring()
do.call(get_boxes_, query) do.call(get_boxes_, query)
} }
@ -167,6 +168,11 @@ parse_senseboxdata = function (boxdata) {
if (!is.null(lastMeasurement)) if (!is.null(lastMeasurement))
thebox$lastMeasurement = isostring_as_date(lastMeasurement) thebox$lastMeasurement = isostring_as_date(lastMeasurement)
# add empty sensortype to sensors without type
if(!('sensorType' %in% names(sensors[[1]]))) {
sensors[[1]]$sensorType <- NA
}
# create a dataframe of sensors # create a dataframe of sensors
thebox$sensors = sensors %>% thebox$sensors = sensors %>%
recursive_lapply(function (x) if (is.null(x)) NA else x) %>% # replace NULLs with NA recursive_lapply(function (x) if (is.null(x)) NA else x) %>% # replace NULLs with NA