R/bitList.R

In cosmicexplorer/xmlr: Tools for parsing and generating XML within R and S-Plus.

bitlist =
  # Taken from RAutoGenRuntime
function(...)
{
  library(bitops)
  x = unlist(list(...))
  if(length(x) == 1)
    return(x)

  ans = x[1]
  for(i in 2:length(x)) {
    ans = bitOr(ans, x[i])
  }
  ans
}