R function to convert a string into a vector of its ASCII numbers

ord.R

ord <- function(x) {
  s <- x[1]

  intbits <- .Machine$sizeof.long * 4
  bits <- raw(nchar(s) * intbits)

  r <- charToRaw(x)
  idx <- if (.Platform$endian == "little") 1:8 else 25:32
  for (i in 1:nchar(s)) {
    bits[idx + ((i - 1) * intbits)] <- rawToBits(r[i])
  }
  packBits(bits, 'integer')
}