R/bitList.R

In omegahat/XML: Tools for Parsing and Generating XML Within R and S-Plus

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

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