Convert a hexadecimal string representation to character

hexToChar.R

hexToChar <- function(x) {
  x <- sub('^0x', '', x)
  sapply(x, function(y) {
    h <- sapply(seq(1, nchar(y), by=2), function(i) substr(y, i, i+1))  
    rawToChar(as.raw(strtoi(h, 16L)))  
  })
}

charToHex <- function(x, prepend0x=TRUE) {
  sapply(x, function(y) {
    y <- paste(charToRaw(y), collapse='')
    if(prepend0x) paste0('0x', y) else y
  })
}