R/nneo_sites.R

In ropenscilabs/nneo: 'NEON' 'API' Client

#' Sites
#'
#' @export
#' @param x (character) a site code
#' @template curl
#' @return a tibble (data.frame)
#' @examples \dontrun{
#' ## list sites
#' nneo_sites()
#'
#' ## get a site
#' res <- nneo_site("JORN")
#' res$dataProducts
#' res$siteDescription
#' }
nneo_sites <- function(...) {
  res <- neon_parse(
    nGET(
      file.path(neon_base(), "sites"),
      ...
    )
  )
  tibble::as_data_frame(res$data)
}

#' @export
#' @rdname nneo_sites
nneo_site <- function(x, ...) {
  res <- neon_parse(
    nGET(
      file.path(neon_base(), "sites", x),
      ...
    )
  )
  res$data
}