R/aqer_sites.R

In skgrange/aqerimportr: Import European Air Quality e-Reporting (AQER) Data

#' Function to get Air Quality e-Reporting (AQER) sites/stations. 
#' 
#' @param as_smonitor Should the return be formatted for use within the 
#' \code{smonitor} framework? 
#' 
#' @author Stuart K. Grange
#' 
#' @return Tibble. 
#' 
#' @examples 
#' 
#' # Get countries
#' data_sites <- aqer_sites()
#'
#' @export
aqer_sites <- function(as_smonitor = FALSE) {
  
  df <- aqer_metadata() %>% 
    distinct(Countrycode,
             AirQualityStation,
             AirQualityStationNatCode,
             AirQualityStationEoICode,
             AirQualityStationArea,
             AirQualityStationType,
             Longitude,
             Latitude,
             Altitude)
  
  # Some formatting
  if (as_smonitor) {
    
    names(df) <- str_to_underscore(names(df))
    names(df) <- ifelse(names(df) == "altitude", "elevation", names(df))
    
  }
  
  return(df)
  
}