#' @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)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.