Help pulling market prices

[phillc73]

Help pulling market prices

[Soccerama]

Sam,

I don't think tidyverse handles these complex structures well. My code (which was written a while ago and may not be optimal) looks a bit like this. It catches some errors and empty fields but probably not all. Let me know if you are having trouble getting it to work:

eventWins <- listMarketCatalogue(eventTypeIds = "7", marketTypeCodes = "WIN", marketIds = yourMarketId, marketProjection = c("COMPETITION", "EVENT", "EVENT_TYPE", "RUNNER_DESCRIPTION",
                                      "MARKET_START_TIME", "MARKET_DESCRIPTION"))

        runnerData <- data.frame()
        winOdds <- listMarketBook(marketId = yourMarketId, priceData = "EX_BEST_OFFERS")
        numRunners <- nrow(winOdds$runners[[1]])
        for(j in 1:numRunners){
          runnerData[j,"runnerName"] <- eventWins$runners[[1]][[j,"runnerName"]]
          runnerData[j,"runnerNumber"] <- substr(runnerData[j,"runnerName"],1,str_locate(runnerData[j,"runnerName"]," ")[[1]]-2)
          if(placeOdds$status == "OPEN"){
            if(winOdds$runners[[1]]$status[[j]]=="ACTIVE"){
              runnerData[j,"selectionId"] <- placeOdds$runners[[1]]$selectionId[[j]]
              if(nrow(winOdds$runners[[1]]$ex[[1]][[j]])>0){
                runnerData[j,"bestLay"] <- winOdds$runners[[1]]$ex[[1]][[j]][[1,"price"]]
                runnerData[j,"layAmount"] <- winOdds$runners[[1]]$ex[[1]][[j]][[1,"size"]]
              } else {
                runnerData[j,"bestLay"] <- 1.01
                runnerData[j,"layAmount"] <- 5
              }
              if(nrow(winOdds$runners[[1]]$ex[[2]][[j]])>0){
                runnerData[j,"bestBack"] <- winOdds$runners[[1]]$ex[[2]][[j]][[1,"price"]] 
                runnerData[j,"backAmount"] <- winOdds$runners[[1]]$ex[[2]][[j]][[1,"size"]]
              } else {
                runnerData[j,"bestBack"] <- 1000
                runnerData[j,"backAmount"] <- 1
              }
              if(nrow(placeOdds$runners[[1]]$ex[[1]][[j]])>0){
                runnerData[j,"bestLayPlaceOdds"] <- placeOdds$runners[[1]]$ex[[1]][[j]][[1,"price"]]
              } else {
                runnerData[j,"bestLayPlaceOdds"] <- 1.01
              }
              if(nrow(placeOdds$runners[[1]]$ex[[2]][[j]])>0){
                runnerData[j,"bestBackPlaceOdds"] <- placeOdds$runners[[1]]$ex[[2]][[j]][[1,"price"]]
              } else {
                runnerData[j,"bestBackPlaceOdds"] <- 1000
              }
              numActiveRunners <- numActiveRunners + 1
            } else {
              runnerData[j,"bestLay"] <- 0
              runnerData[j,"layAmount"] <- 0
              runnerData[j,"bestBack"] <- 0
              runnerData[j,"backAmount"] <- 0
            }
          } else {
            runnerData[j,"bestLay"] <- 0
            runnerData[j,"layAmount"] <- 0
            runnerData[j,"bestBack"] <- 0
            runnerData[j,"backAmount"] <- 0
          }
        }