R/LC_POST.R

In LendingClub: A Lending Club API Wrapper

#' Wrapper for POST
#'
#' A wrapper for POST which passes the data to the LC server. Data
#' is encoded as json.
#' @param postURL URL passed to the Lending Club API
#' @param params parameters passed to the API
#' @param auth API key
#' @keywords internal
#'
LC_POST<- function(postURL, params, auth){
    r<- httr::POST(postURL,
               body=params,
               encode="json",
               httr::add_headers("Authorization"= auth,
                                 "user-agent"="github.com/kuhnrl30/LendingClub",
                                 "Content-Type"="application/json"))

    ResponseHandler(r)

    content(r,"parsed") 
    
    }