getBetLite: getBetLite
In bwlewis/betfair: Betfair API R Implementation

Description Usage Arguments Author(s) Examples

Betfair getBetLite

1	getBetLite(betId, service = Exchange)

`betId`	betId
`service`	service

colin@betwise.co.uk

##---- 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(betId, 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("betLite", v)
  tags <- .xmltags(x)
  betLite <- lapply(as.list(tags), .xmlp, x)
  tags <-  sub(".*:","",tags)
  names(betLite) <- tags
  betLite
  }