R/latest-obs.R

In hrbrmstr/tempestwx: Tools To Query WeatherFlow Tempest Weather Station Data

#' Get latest station observation
#'
#' Get the latest most recent observation for a station.
#'
#' @param station_id (chr) station id
#' @param pat see [tempest_pat()]
#' @return list with station metadata, configured, units and point-in-time observation
#' @export
#' @references [Tempest API](https://weatherflow.github.io/Tempest/api/)
#' @examples \dontrun{
#' st <- tempest_station_meta()
#' latest_observation(st$stations$station_id)
#' }
latest_observation <- function(station_id, pat = tempest_pat()) {

  httr::GET(
    url = file.path("https://swd.weatherflow.com/swd/rest/observations/station", station_id[1]),
    query = list(
      token = pat[1]
    ),
    .TEMPEST_UA
  ) -> res

  httr::stop_for_status(res)

  out <- httr::content(res, as = "text", encoding = "UTF-8")
  out <- jsonlite::fromJSON(out)

  out

}