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

add grouptag

Browse source
This commit is contained in:
jan 2023-01-31 17:12:59 +01:00
parent 24851046f2
commit 379b38046d
1 changed files with 21 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

22
R/box.R
View file

@ -154,7 +154,10 @@ parse_senseboxdata = function (boxdata) {
sensors = boxdata$sensors sensors = boxdata$sensors
location = boxdata$currentLocation location = boxdata$currentLocation
lastMeasurement = boxdata$lastMeasurementAt # rename for backwards compat < 0.5.1 lastMeasurement = boxdata$lastMeasurementAt # rename for backwards compat < 0.5.1
boxdata[c('loc', 'locations', 'currentLocation', 'sensors', 'image', 'boxType', 'lastMeasurementAt')] = NULL grouptags = boxdata$grouptag
boxdata[c(
'loc', 'locations', 'currentLocation', 'sensors', 'image', 'boxType', 'lastMeasurementAt', 'grouptag'
)] = NULL
thebox = as.data.frame(boxdata, stringsAsFactors = F) thebox = as.data.frame(boxdata, stringsAsFactors = F)
# parse timestamps (updatedAt might be not defined) # parse timestamps (updatedAt might be not defined)
@ -185,6 +188,23 @@ parse_senseboxdata = function (boxdata) {
if (length(location$coordinates) == 3) if (length(location$coordinates) == 3)
thebox$height = location$coordinates[[3]] thebox$height = location$coordinates[[3]]
# extract grouptag(s) from box
if (length(grouptags) == 0)
thebox$grouptag = NULL
if (length(grouptags) > 0) {
# if box does not have grouptag dont set attribute
if(grouptags[[1]] == '') {
thebox$grouptag = NULL
}
else {
thebox$grouptag = grouptags[[1]]
}
}
if (length(grouptags) > 1)
thebox$grouptag2 = grouptags[[2]]
if (length(grouptags) > 2)
thebox$grouptag3 = grouptags[[3]]
# attach a custom class for methods # attach a custom class for methods
osem_as_sensebox(thebox) osem_as_sensebox(thebox)
} }