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 bbox

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

9
R/box.R
View file

@ -18,6 +18,10 @@
#' @param to Only return boxes that were measuring earlier than this time #' @param to Only return boxes that were measuring earlier than this time
#' @param phenomenon Only return boxes that measured the given phenomenon in the #' @param phenomenon Only return boxes that measured the given phenomenon in the
#' time interval as specified through \code{date} or \code{from / to} #' time interval as specified through \code{date} or \code{from / to}
#' @param bbox Only return boxes that are within the given boundingbox,
#' vector of 4 WGS84 coordinates.
#' Order is: longitude southwest, latitude southwest, longitude northeast, latitude northeast.
#' Minimal and maximal values are: -180, 180 for longitude and -90, 90 for latitude.
#' @param endpoint The URL of the openSenseMap API instance #' @param endpoint The URL of the openSenseMap API instance
#' @param progress Whether to print download progress information, defaults to \code{TRUE} #' @param progress Whether to print download progress information, defaults to \code{TRUE}
#' @param cache Whether to cache the result, defaults to false. #' @param cache Whether to cache the result, defaults to false.
@ -67,7 +71,8 @@
#' b = osem_boxes(progress = FALSE) #' b = osem_boxes(progress = FALSE)
#' } #' }
osem_boxes = function (exposure = NA, model = NA, grouptag = NA, osem_boxes = function (exposure = NA, model = NA, grouptag = NA,
date = NA, from = NA, to = NA, phenomenon = NA, date = NA, from = NA, to = NA, phenomenon = NA,
bbox = NA,
endpoint = osem_endpoint(), endpoint = osem_endpoint(),
progress = TRUE, progress = TRUE,
cache = NA) { cache = NA) {
@ -93,6 +98,7 @@ osem_boxes = function (exposure = NA, model = NA, grouptag = NA,
if (!is.na(model)) query$model = model if (!is.na(model)) query$model = model
if (!is.na(grouptag)) query$grouptag = grouptag if (!is.na(grouptag)) query$grouptag = grouptag
if (!is.na(phenomenon)) query$phenomenon = phenomenon if (!is.na(phenomenon)) query$phenomenon = phenomenon
if (all(!is.na(bbox))) query$bbox = paste(bbox, collapse = ', ')
if (!is.na(to) && !is.na(from)) if (!is.na(to) && !is.na(from))
query$date = parse_dateparams(from, to) %>% paste(collapse = ',') query$date = parse_dateparams(from, to) %>% paste(collapse = ',')
@ -175,6 +181,7 @@ parse_senseboxdata = function (boxdata) {
# extract coordinates & transform to simple feature object # extract coordinates & transform to simple feature object
thebox$lon = location$coordinates[[1]] thebox$lon = location$coordinates[[1]]
thebox$lat = location$coordinates[[2]] thebox$lat = location$coordinates[[2]]
thebox$locationtimestamp = isostring_as_date(location$timestamp)
if (length(location$coordinates) == 3) if (length(location$coordinates) == 3)
thebox$height = location$coordinates[[3]] thebox$height = location$coordinates[[3]]