R/get_janes_data2.R

In cgpeltier/janes: Pull data more easily from the Janes API

#' @title get_janes_data2
#' @description Pulls Janes data for all data endpoints. Helper function.
#'
#' @param x For iteration on URLs
#'
#' @return Janes data. Used in all "get_janes_x" functions.
#' @importFrom httr GET
#' @importFrom httr add_headers
#' @importFrom httr content
#' @importFrom jsonlite fromJSON
#' @importFrom magrittr "%>%"
#' @importFrom tibble tibble



get_janes_data2 <- function(x){
    request <- GET(url = x, add_headers(Authorization = Sys.getenv("JANES_KEY")))
    response <- content(request, as = "text")
    response %>%
        fromJSON(simplifyDataFrame = TRUE)

}

#' @export