R/lc_SubmitOrder.R

In LendingClub: A Lending Club API Wrapper

#' Buy a note on the primary market
#'
#' Create an order to purchase a note. If the account has sufficient
#' funding, the note will be purchased once the loan has passed
#' through the funding stage.
#'
#' @param loanId Unique ID for loans. These can be found using the
#' ListedLoans() function.
#' @param amount Amount to be purchased
#' @param portfolioId Unique ID for the portfolio. It can be found
#' using the PortfoliosOwned() function.
#' @param quiet Should the response be printed to the console
#' @inheritParams lc_AccountSummary
#' @examples
#' \dontrun{
#' SubmitOrder(12345678, 25)
#' SubmitOrder(12345678, 25, "myPortfolio")
#' 
#' #For multiple loans in a single order
#' SubmitOrder(loanId=c(123, 456, 789), amount= c(rep(25,3)))
#'}
#' @export

lc_SubmitOrder<- function(loanId, amount=25, portfolioId=NULL, LC_CRED=NULL, quiet=T){

    LC_CRED<-CheckCred(LC_CRED)

    postURL<- MakeURL(LC_CRED$investorID,"orders")

    orders<- data.frame("loanId" = loanId,
                        "requestedAmount" = amount)

    if(!is.null(portfolioId)) {
        orders<- as.data.frame(cbind(orders, portfolioId),
                               stringsAsFactors=F)
        }

    params<- list("aid" = LC_CRED$investorID,
                 "orders"= orders)

    resp<- LC_POST(postURL, params, LC_CRED$key)
    
    # resp
    if(!quiet){
        if(!is.null(resp$orderConfirmations)){
            confirmation_helper(resp$orderConfirmations)
        
        } else if(!is.null(resp$errors)){
            
            error_helper(resp$errors)
        
        } else {TRUE}
        }    
}        



# helper functions ---- 

error_helper<- function(r){
    lapply(r,function(x) data.frame(t(unlist(x)))) %>%
        plyr::rbind.fill() %>%
        select_("code","message")
    }


confirmation_helper<- function(r){
    cbind(as.data.frame(t(sapply(r, function(x) x[1:3]))),
          executionStatus= sapply(r, function(x) paste0(x$executionStatus, collapse=", ")))
    }