R/GetBets.R

In pinnacle.API: A Wrapper for the Pinnacle API

#' Get a list of running/settled bets
#'
#' @param betids a vector of betids (overrides betlist) default = NULL
#' @param betlist Either 'SETTLED' or 'RUNNING' Default Behavior shows both
#' @param fromDate Iso8061 Date Default: 15 days prior in UTC, as.POSIXct(Sys.Date(), tz = 'UTC')-15*24*60*60
#' @param toDate Iso8061 Date  Default: 1 day ahead in UTC (to counter possible fencepost situations), as.POSIXct(Sys.Date(), tz = 'UTC') + 24*60*60
#'
#' @return A list of bets and associated details 
#' @export
#' @importFrom jsonlite fromJSON
#' @importFrom jsonlite rbind_pages
#' @examples
#' \donttest{
#' SetCredentials("TESTAPI","APITEST")
#' AcceptTermsAndConditions(accepted=TRUE)
#' GetBetsList()}
GetBetsList <-
  function(betids = NULL,
           betlist = c('SETTLED','RUNNING'),
           fromDate = as.POSIXlt(Sys.Date(), tz = 'UTC') - 15*24*60*60,
           toDate = as.POSIXlt(Sys.Date(), tz = 'UTC') + 24*60*60){
    
    CheckTermsAndConditions()
    
    message(Sys.time(),
      '| Pulling Bet list from Range: ', 
      as.character(fromDate), ' to ', 
      as.character(toDate)
    )
    
    jsonlite::rbind_pages(lapply(betlist, function(betlist_type) {
        r <- GET(paste0(.PinnacleAPI$url ,"/v1/bets"),
             add_headers(Authorization = authorization(),
                         "Content-Type" = "application/json"),
             query = 
               list(
                 betlist = betlist_type,
                 betids =
                   if (!is.null(betids)) paste0(betids, collapse = ',') else NULL,
                 fromDate = as.character(fromDate),
                 toDate = as.character(toDate),
                 appId = 'R'
               )
             )
        res <-  jsonlite::fromJSON(content(r,type = "text", encoding = "UTF-8"))

    
        as.data.frame(unlist(res, recursive = FALSE))
        }))
  }