R/events.R

In pwinskill/ttr: To the races

#' Events
#'
#' Pulls event data from exchange
#'
#' @param bf Login list
#' @param ... Additional filters to api_filter
#'
#' @return Events data frame
#' @export
events <- function(bf, ...){
  stopifnot(is.list(bf))

  input_raw <- input_base(address = "SportsAPING/v1.0/listEvents")
  input_raw$params$filter <- api_filter(...)
  
  input <- jsonlite::toJSON(input_raw, pretty = TRUE)
  
  events_raw <- post(input, bf)$result
  
  return(events_raw)
}