Description Usage Arguments Author(s) Examples
Betfair getInPlayMarkets
1 | getInPlayMarkets(service = Exchange)
|
service |
service |
colin@betwise.co.uk
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 | ##---- Should be DIRECTLY executable !! ----
##-- ==> Define data, use random,
##-- or do help(data=index) for the standard data sets.
## The function is currently defined as
function(service=Exchange)
{
v <- .bfapi(match.call(), service=service)
if(z <- .xmlp("errorCode", v) != "OK") return(z)
x <- .xmlp("marketData",v)
x <- .compressed2dataframe(x, col.names=c("Market ID", "Market Name", "Market Type", "Market Status", "Event Date", "Menu Path", "Event Hierachy", "Bet Delay", "Exchange Id", "ISO3 Country Code", "Last Refresh", "Number of Runners", "Number of Winners", "Total Amount Matched", "BSP Market", "Turning In Play"), colClasses=c("integer", rep("character",3), "numeric", rep("character",3), "integer", "character", "numeric", "integer", "integer", "numeric", "character", "character"))
# XXX XXX dropping milliseconds here !!! Change this...
x[,5] <- as.POSIXct(x[,5]/1000,origin="1970-01-01", tz="GMT")
x[,11] <- as.POSIXct(x[,11]/1000,origin="1970-01-01", tz="GMT")
x
}
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.