R/place_start.R

In pwinskill/ttr: To the races

#' Place lay for start of race
#'
#' @param bf Betfair login
#' @param marketId MarketId
#' @param selectionId SelectionId
#' @param liability Liability (£)
#'
#' @return Bet API output
place_start <- function(bf, marketId, selectionId, liability){
  input_raw <- input_base("SportsAPING/v1.0/placeOrders")
  input_raw$params <- list()
  input_raw$params$marketId = jsonlite::unbox(as.character(marketId))
  instructions <- data.frame(selectionId = jsonlite::unbox(selectionId),
                             handicap = jsonlite::unbox("0"),
                             side= jsonlite::unbox("LAY"),
                             orderType = jsonlite::unbox("MARKET_ON_CLOSE"))
  input_raw$params$instructions <- instructions
  input_raw$params$instructions$marketOnCloseOrder = data.frame(liability = jsonlite::unbox(liability))
  input <- jsonlite::toJSON(input_raw, pretty = TRUE)
  placed <- tryCatch(post(input, bf),
                     error = function(e){
                       stop("Error in place start ", e)
                     })
  return(placed)
}