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

build performance improvements

Browse source
This commit is contained in:
Norwin 2018-10-20 01:49:55 +02:00
parent 80dc58a298
commit 8d515a5fb0
2 changed files with 8 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
R/phenomena.R
View file

@ -18,13 +18,13 @@ osem_phenomena = function (boxes) UseMethod('osem_phenomena')
#' # get the phenomena for a single senseBox #' # get the phenomena for a single senseBox
#' osem_phenomena(osem_box('593bcd656ccf3b0011791f5a')) #' osem_phenomena(osem_box('593bcd656ccf3b0011791f5a'))
#' #'
#' # get the phenomena for a group of senseBoxes
#' osem_phenomena(
#' osem_boxes(grouptag = 'ifgi', exposure = 'outdoor', date = Sys.time())
#' )
#'
#' # get phenomena with at least 30 sensors on opensensemap
#' \donttest{ #' \donttest{
#' # get the phenomena for a group of senseBoxes
#' osem_phenomena(
#' osem_boxes(grouptag = 'ifgi', exposure = 'outdoor', date = Sys.time())
#' )
#'
#' # get phenomena with at least 30 sensors on opensensemap
#' phenoms = osem_phenomena(osem_boxes()) #' phenoms = osem_phenomena(osem_boxes())
#' names(phenoms[phenoms > 29]) #' names(phenoms[phenoms > 29])
#' } #' }

4
vignettes/osem-intro.Rmd
View file

@ -97,7 +97,7 @@ Thats still more than 200 measuring stations, we can work with that.
### Analyzing sensor data ### Analyzing sensor data
Having analyzed the available data sources, let's finally get some measurements. Having analyzed the available data sources, let's finally get some measurements.
We could call `osem_measurements(pm25_sensors)` now, however we are focussing on We could call `osem_measurements(pm25_sensors)` now, however we are focusing on
a restricted area of interest, the city of Berlin. a restricted area of interest, the city of Berlin.
Luckily we can get the measurements filtered by a bounding box: Luckily we can get the measurements filtered by a bounding box:
@ -119,7 +119,7 @@ berlin = st_point(c(13.4034, 52.5120)) %>%
pm25 = osem_measurements( pm25 = osem_measurements(
berlin, berlin,
phenomenon = 'PM2.5', phenomenon = 'PM2.5',
from = now() - days(20), # defaults to 2 days from = now() - days(3), # defaults to 2 days
to = now() to = now()
) )