#' get_groups()
#'
#' Get the names of Census Bureau variable groups and their descriptive parameters
#'
#' @description Function produces a data.table/data frame of
#' variable groups and their descriptive parameters.
#'
#' @param dataset A string that sets the name of the data set of interest (e.g. "acs/acs5")
#' @param vintage An optional numeric that sets the year of interest.
#'
#' @import data.table httr jsonlite
#'
#' @return A data.table
#'
#' @author Rick Dean
#'
#' @export
get_groups <- function(dataset, vintage=NULL) {
# Create a string url based on the submitted parameters
a_url <- .get_url(dataset, vintage)
a_url <- paste(a_url, "groups.json", sep="/")
# Make a web request
resp <- httr::GET(a_url)
# Check the response as valid JSON
.check_response(resp)
# Parse the response and return raw JSON
raw_json <- .parse_response(resp)
if(is.null(dim(raw_json$groups))){
stop(paste0("Groups are not available for dataset ", dataset))
}
# Return a data.table
dt <- data.table::setDT(raw_json[["groups"]])
return(dt[, .(name, description)])
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.