R/sp_query.R

In ropenscilabs/spenv: Add Environmental Data to Spatial Data

#' Explore what data is available
#' 
#' THIS FUNCTION DOESN'T WORK YET
#'
#' @export
#' @param variable Query for a variable
#' @param source Query for a data source
#' @author Scott Chamberlain
#' @examples \dontrun{
#' # THESE DON'T ACTUALLY WORK YET...
#' # Query by data variable
#' sp_query(variable = "precipitation")
#' sp_query(variable = "temperature")
#'
#' # Query by data variable
#' sp_query(source = "noaa")
#'
#' # Query by spatial resolution
#' sp_query(spatial_res = "noaa")
#'
#' # Query by temporal resolution
#' sp_query(temporal_res = "weekly")
#'
#' # Query by spatial coverage
#' sp_query(spatial_coverage = "global")
#'
#' # Query by temporal coverage
#' sp_query(temporal_coverage = "1950:1970")
#'
#' # Query by license
#' sp_query(license = "CC0")
#' }
sp_query <- function(variable = NULL, source = NULL) {
  stop("function doesn't work yet", call. = FALSE)
  # lapply(dsets, function(z) {
  #   agrep(variable, z$data, value = TRUE)
  # })
}

# dsets <- list(
#   rnoaa_buoy = list(
#     pkg = "rnoaa",
#     fxn = "buoy",
#     data = c("precipitation")
#   ),
#   rnoaa_gefs = list(
#     pkg = "rnoaa",
#     fxn = "gefs",
#     data = rnoaa::gefs_variables()
#   )
# )