Description Usage Arguments Author(s) Examples
Betfair getMarket
1 |
marketId |
marketId |
includeCouponLinks |
includeCouponLinks |
service |
service |
colin@betwise.co.uk
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 | ##---- 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(marketId, includeCouponLinks=FALSE, service=Exchange)
{
v <- .bfapi(match.call(), service=service)
z <- .xmlp("errorCode", v)
if(is.null(z)) return(v)
if(z != "OK") return(z)
x <- .xmlp("market",v)
tags <- .xmltags(x, exclude=c(".*Runner", ".*EventId", "asianLineId","handicap","name","selectionId"))
market <- lapply(as.list(tags), .xmlp, x)
tags <- sub(".*:","",tags)
names(market) <- tags
market$runners <- .xmlarray2dataframe(market$runners)
market$eventHierarchy <- .xmlarray2dataframe(market$eventHierarchy)
# XXX Todo: type conversion of the market fields
market
}
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.