R/pcd_queries.R

Defines functions get_rocre_pcd get_roceq_pcd get_roctm_pcd

Documented in get_roceq_pcd get_rocre_pcd get_roctm_pcd

#' @title get_rocre_pcd
#' @description Function to get rocre query from PCD.
#'
#' @param daterange Character vector of date range of interest in %Y-%m-%d format.
#' Defaults to past 13 months.
#'
#' @return Returns dataframe of query results.
#' @export
get_rocre_pcd <- function(daterange = NA) {
  df <- pcd_query(query = fill_query(query = queries$rocre, range = daterange))

  return(df)
}

#' @title get_roceq_pcd
#' @description Function to get roceq query from PCD.
#'
#' @param daterange Character vector of date range of interest in %Y-%m-%d format.
#' Defaults to past 13 months.
#'
#' @return Returns dataframe of query results.
#' @export
get_roceq_pcd <- function(daterange = NA) {
  df <- pcd_query(query = fill_query(query = queries$roceq, range = daterange))

  return(df)
}

#' @title get_roctm_pcd
#' @description Function to get roctm query from PCD.
#'
#' @param daterange Character vector of date range of interest in %Y-%m-%d format.
#' Defaults to past 13 months.
#'
#' @return Returns dataframe of query results.
#' @export
get_roctm_pcd <- function(daterange = NA) {
  df <- pcd_query(query = fill_query(query = queries$roctm, range = daterange))

  return(df)
}
kimjam/qrcutils documentation built on May 20, 2019, 10:21 p.m.