R/get_saq_validity.R

In saqgetr: Import Air Quality Monitoring Data in a Fast and Easy Way

#' Function to import validity integers for used in the \strong{saqgetr} package.  
#' 
#' @param file File of validity helper table. 
#' 
#' @author Stuart K. Grange.
#' 
#' @return Tibble. 
#' 
#' @examples 
#' 
#' # Get validity integers
#' data_validity_integers <- get_saq_validity()
#' 
#' @export
get_saq_validity <- function(file = NA) {
  
  # Default file
  if (is.na(file[1])) {
    file <- "http://aq-data.ricardo-aea.com/R_data/saqgetr/helper_tables/validity_integers_table.csv.gz"
  }
  
  # Read file
  df <- read_csv_gz_remote(file, col_types = "ilcc")
  
  return(df)
  
}


#' Function to import summary integers for used in the \strong{saqgetr} package.  
#' 
#' @param file File of summary helper table. 
#' 
#' @author Stuart K. Grange.
#' 
#' @return Tibble. 
#' 
#' @examples 
#' 
#' # Get summary integers
#' data_summary_integers <- get_saq_summaries()
#' 
#' @export
get_saq_summaries <- function(file = NA) {
  
  # Default file
  if (is.na(file[1])) {
    file <- "http://aq-data.ricardo-aea.com/R_data/saqgetr/helper_tables/summary_integers_table.csv.gz"
  }
  
  # Read file
  df <- read_csv_gz_remote(file, col_types = "ci")
  
  return(df)
  
}