R/LC_GET.R

In LendingClub: A Lending Club API Wrapper

#' Wrapper for GET
#'
#' A wrapper for the GET function to pull the needed data
#' @param searchURL URL passed to the Lending Club API
#' @param auth API key
#' @param query parameters to be added to and encoded into the URL
#' @param margin logical. Passed to CleanData function
#' @return object with raw content from the API call and the GET response
#' @keywords internal

LC_GET<- function(searchURL, auth, query=NULL, margin=T){
    r<- httr::GET(searchURL,
                  query=query,
                  httr::user_agent("http://www.github.com/kuhnrl30/LendingClub"),
                  httr::add_headers("Authorization"= auth))


    if(httr::status_code(r)!=200){
        stop("LendingClub API request failed")
        }

    parsed<- jsonlite::fromJSON(httr::content(r, "text", encoding="UTF-8"),
                                simplifyVector = TRUE)

    if (httr::http_error(r)) {
        stop(
            sprintf(
                "LendingClub API request failed [%s]\n%s\n<%s>",
                status_code(r),
                parsed$message,
                parsed$documentation_url
            ),
            call. = FALSE
        )
    }

    if(!is.null(margin)){
        parsed<- CleanData(parsed, margin)
        }


    structure(
        list(content = parsed,
             response = r),
        class = "LendingClub_api")


}