[R] Hexidecimal conversion

Richard A. O'Keefe ok at cs.otago.ac.nz
Fri Dec 3 01:09:27 CET 2004

"Hanke, Alex" <HankeA at mar.dfo-mpo.gc.ca> wrote:
	I can produce the hex(a)decimal equivalent of a decimal number
	but I am having a hard time reversing the operation.

There are bound to be better ways, but perhaps the most obvious method
    (1) Break the string into single characters.
    (2) Match them up against the hexadecimal digits.
    (3) Multiply each digit by the appropriate power of 16.
    (4) Add 'em up.

hexdigits <- c("0","1","2","3","4","5","6","7",

fromhex <- function (s) {
    s <- match(strsplit(s, "")[[1]], hexdigits) - 1
    sum(s * 16 ^ ((length(s)-1) : 0))

More information about the R-help mailing list