R/helpers.R

In QuantGov/regcensus-api-client-R: Retrieve Data from RegData API

# HELPER FUNCTIONS
#' Given a flattened json file, produce R friendly column names.
#'
#' @param json - JSON file
#'
#' @return data frame
#'

clean_column_names <- function(data_frame){
  if(is.data.frame(data_frame)){

  }
}

## Get base url
get_baseURL <- function() {
    return("https://api.quantgov.org")
}

## Generate API call from controller and requested ID
regdata_json_request <- function(controller, id) {
    base_url <- get_baseURL()

    if (!is.na(id)) {
        apicall <- paste0(base_url, "/", controller, "/", id)
        print(apicall)
    } else {
        apicall <- paste0(base_url, "/", controller)
        print(apicall)
    }
    json <- jsonlite::fromJSON(apicall) #8/26/2019, Kofi: added full path to fromJSON
    return(json)
}

## Return URL of API call
regdata_json_requestURL <- function(controller, id) {
    base_url <- get_baseURL()

    if (!is.na(id)) {
        apicall <- paste0(base_url, "/", controller, "/", id)
    } else {
        apicall <- paste0(base_url, "/", controller)
    }

    return(apicall)
}