R/read_bookie_odds.R

Defines functions read_booke_odds_FT1X2 read_booke_odds_FTHdp read_booke_odds_FTOU

Documented in read_booke_odds_FT1X2 read_booke_odds_FTHdp

#' Title
#'
#' @param oddsString
#'
#' @return
#' @export
#'
#' @examples
read_booke_odds_FT1X2 <- function(oddsString) {
  splitString <-
    unlist(stringr::str_split(oddsString, ";"))

  oddsString <-
    splitString[dplyr::starts_with(match = "BEST", vars = splitString)] %>%
    stringr::str_replace_all( "BEST=", "") %>%
    stringr::str_split(",") %>%
    unlist() %>%
    stringi::stri_split_fixed(" ") %>%
    rlang::set_names(c("home", "away", "draw")) %>%
    purrr::imap_dfr(
      ~data.frame(
        market = .y,
        bookie = .x[1],
        odds = .x[2],
        stringsAsFactors = F
      ))
}

#' Title
#'
#' @param oddsList
#' @param Hdp
#'
#' @return
#' @export
#'
#' @examples
read_booke_odds_FTHdp <- function(oddsList, Hdp) {

  splitString <-
    unlist(stringr::str_split(oddsList[["BookieOdds"]], ";"))

  Hdp <- oddsList$Handicap

  oddsString <-
    splitString[dplyr::starts_with(match = "BEST", vars = splitString)] %>%
    stringr::str_replace_all( "BEST=", "") %>%
    stringr::str_split(",") %>%
    unlist() %>%
    stringi::stri_split_fixed(" ") %>%
    rlang::set_names(
      c(paste0("home", Hdp, "ah"),
        paste0("away", Hdp, "ah"))) %>%
    purrr::imap_dfr(
      ~data.frame(
        market = .y,
        bookie = .x[1],
        odds = .x[2],
        stringsAsFactors = F
      ))
}

read_booke_odds_FTOU <- function(oddsString, OU) {

}
SPFL-Analysis/asianOddsAPI documentation built on Jan. 10, 2020, 5:58 a.m.