R/PlaceParlayBet.R

In marcoblume/pinnacle.API: A Wrapper for the Pinnacle API

#' PlaceParlayBet
#' 
#' Place parlay or round robin parlay bet in the system
#'
#' @param riskAmount numeric Wager amount in  currency
#' @param legslist A list of wagers, where each wager must be in named list format. Required named values are: legBetType, lineId, either team or side, and periodNumber. Optional named values are: altLineId, pitcher1MustStart, or pitcher2MustStart. See the API Manual for more info
#' \itemize{
#' \item{lineId}
#' \item{altLineId OPTIONAL}
#' \item{sportId}
#' \item{eventId}
#' \item{periodNumber}
#' \item{legBetType
#' \itemize{
#' \item{MONEYLINE}
#' \item{SPREAD}
#' \item{TOTAL}
#' \item{TEAMTOTAL}
#' }
#' }
#' \item{team/side using one will invalidate the other}
#' \item{pitcher1MustStart OPTIONAL}
#' \item{pitcher2MustStart OPTIONAL}
#' }
#' @param roundRobinOptions one or more of the round robin options, default is 'Parlay'
#' \itemize{
#' \item{Parlay}
#' \item{TwoLegRoundRobin}
#' \item{ThreeLegRoundRobin}
#' \item{FourLegRoundRobin}
#' \item{FiveLegRoundRobin}
#' \item{SixLegRoundRobin}
#' \item{SevenLegRoundRobin}
#' \item{EightLegRoundRobin}
#' }
#' @param oddsFormat default:'AMERICAN'
#' \itemize{
#' \item{AMERICAN}
#' \item{DECIMAL}
#' \item{HONGKONG}
#' \item{INDONESIAN}
#' \item{MALAY}
#' }
#' @param acceptBetterLine : Default TRUE ,boolean Whether or not to accept a bet when there is a line change in favor of the client
#' @return list containing:
#' \itemize{
#'   \item{status}  If Status is PROCESSED_WITH_ERROR errorCode will be in the response
#'   \item{errorCode}
#' }
#' @export
#' @import httr
#' @import uuid
#' @examples
#' \donttest{
#' SetCredentials("TESTAPI","APITEST")
#' AcceptTermsAndConditions(accepted=TRUE)
#' parlay1 <-  list(lineId = 222136736,
#'                  sportId=1,
#'                  eventId = 495418854,
#'                  periodNumber=0,
#'                  legBetType = "MONEYLINE",
#'                  team = 'TEAM1')
#' parlay2 <- list(lineId = 223187865,
#'                  sportId=1,
#'                  eventId = 496997901,
#'                  periodNumber=0,
#'                  legBetType = "TOTAL_POINTS",
#'                  side = 'OVER')
#' legslist <- list(parlay1,parlay2)
#' 
#' 
#' PlaceParlayBet(riskAmount=10, 
#'                legslist=legslist,
#'                roundRobinOptions="Parlay",
#'                oddsFormat="AMERICAN" ,
#'                acceptBetterLine=TRUE)
#' }
#' 
#' 




PlaceParlayBet <-
  function(riskAmount,
           legslist,
           roundRobinOptions = c('Parlay',
                                 'TwoLegRoundRobin',
                                 'ThreeLegRoundRobin',
                                 'FourLegRoundRobin',
                                 'FiveLegRoundRobin',
                                 'SixLegRoundRobin',
                                 'SevenLegRoundRobin',
                                 'EightLegRoundRobin')[1],
           oddsFormat = 'AMERICAN',
           acceptBetterLine = TRUE){
    
    CheckTermsAndConditions()
    
    guids <- c()
    #Generate UUIDs
    for (i in 1:(length(legslist)+1)) {
        Sys.sleep(0.000001)
        guids <- c(guids, uuid::UUIDgenerate())
    }
    message(
      Sys.time(),
      '| Placing Parlay Bet'
    )

    # Only turn RR options into an array if there is only one.
    if (length(roundRobinOptions) == 1) {
      roundRobinOptions <- list(roundRobinOptions)
    }
    place_bet_data <- list(uniqueRequestId=guids[1],
                           acceptBetterLine=acceptBetterLine,
                           oddsFormat=oddsFormat,
                           riskAmount=riskAmount,
                           roundRobinOptions = roundRobinOptions,
                           legs = lapply(1:length(legslist),function(leg) c(uniqueLegId = guids[-1][leg],legslist[[leg]])))
    
    place_bet_body <- jsonlite::toJSON(place_bet_data, auto_unbox = TRUE, null = "null")
    
    r <- POST(paste0(.PinnacleAPI$url ,"/v1/bets/parlay"),
              add_headers(Authorization= authorization(),
                          "Content-Type" = "application/json"),
              body = place_bet_body
    )

    jsonlite::fromJSON(content(r,type="text", encoding = "UTF-8"))
    
  }