luftlyr_get.R

#' luftlyr_get_data

#' luftlyr_get_data
#' @param x request object
#' @param username username
#' @param password password
#' @keywords luftlyr
#' @export
#' @examples
#' \dontrun{
#' luftlyr_get_data()
#' }
luftlyr_get_data <- function(x,username,password) {
  fromDateTime <- as.character(x$timeObj$fromDateTime()+3600) #UTC+1, no summer time
  toDateTime <- as.character(x$timeObj$toDateTime()+3600) #UTC+1, no summer time

  res <- luftkvalr::luft_data(stationIDs=x$stationObj$station_id,west=x$stationObj$west,south=x$stationObj$south,east=x$stationObj$east,north=x$stationObj$north,
                   componentName=x$elementObj$element_id,fromDateTime,toDateTime,username,password)
  return(res)
}

#' luftlyr_get_qa

#' luftlyr_get_qa
#' @param x request object
#' @param username username
#' @param password password
#' @keywords luftlyr
#' @export
#' @examples
#' \dontrun{
#' luftlyr_get_qa()
#' }
luftlyr_get_qa <- function(x,username,password) {

  fromDateTime <- as.character(x$timeObj$fromDateTime()+3600) #UTC+1, no summer time
  toDateTime <- as.character(x$timeObj$toDateTime()+3600) #UTC+1, no summer time

  res <- luftkvalr::luft_qa(stationIDs=x$stationObj$station_id,west=x$stationObj$west,south=x$stationObj$south,east=x$stationObj$east,north=x$stationObj$north,
                   componentName=x$elementObj$element_id,fromDateTime,toDateTime,username,password)
  return(res)
}

#' luftlyr_get_meta

#' luftlyr_getmeta
#' @param x request object
#' @param username username
#' @param password password
#' @keywords luftlyr
#' @export
#' @examples
#' \dontrun{
#' luftlyr_get_meta()
#' }
luftlyr_get_meta <- function(x,username,password) {
  res <- luftkvalr::luft_meta(stationIDs=x$stationObj$station_id,west=x$stationObj$west,south=x$stationObj$south,east=x$stationObj$east,north=x$stationObj$north,
                   componentName=x$elementObj$element_id,username,password)
  return(res)
}