opensensemap/opensensmapR
1
0
Fork 0
mirror of https://github.com/sensebox/opensensmapr synced 2025-02-20 20:23:58 +01:00
Code Issues Releases Wiki Activity

fix summary.sensebox() last_measurement_within

Browse source
This commit is contained in:
Norwin 2018-01-13 16:17:59 +01:00
parent a8a1effa48
commit 07ab9b3096
Signed by: norwin
GPG key ID: 24BC059DE24C43A3
1 changed files with 5 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
R/box_utils.R
View file

@ -48,14 +48,13 @@ summary.sensebox = function(object, ...) {
cat('\n')
diffNow = (utc_date(Sys.time()) - object$lastMeasurement) %>% as.numeric(unit='hours')
neverActive = object[is.na(object$lastMeasurement), ] %>% nrow()
list(
'last_measurement_within' = c(
'1h' = nrow(object[diffNow <= 1, ]) - neverActive,
'1d' = nrow(object[diffNow <= 24, ]) - neverActive,
'30d' = nrow(object[diffNow <= 720, ]) - neverActive,
'365d' = nrow(object[diffNow <= 8760, ]) - neverActive,
'never' = neverActive
'1h' = nrow(dplyr::filter(object, diffNow <= 1)),
'1d' = nrow(dplyr::filter(object, diffNow <= 24)),
'30d' = nrow(dplyr::filter(object, diffNow <= 720)),
'365d' = nrow(dplyr::filter(object, diffNow <= 8760)),
'never' = nrow(dplyr::filter(object, is.na(lastMeasurement)))
)
) %>% print()