如何将十六进制字符串转换为R中的文本？

Question

是否有一个函数将十六进制字符串转换为R中的文本？

例如:

我有1271763355662E324375203137应该转换为的十六进制字符串qv3Uf.2Cu 17.

有人知道R的好解决方案吗？

Answer 1

这是一种方式:

s <- '1271763355662E324375203137'
h <- sapply(seq(1, nchar(s), by=2), function(x) substr(s, x, x+1))
rawToChar(as.raw(strtoi(h, 16L)))

## [1] "\022qv3Uf.2Cu 17"

如果需要,可以sub输出不可打印的字符,如下所示:

gsub('[^[:print:]]+', '', rawToChar(as.raw(strtoi(h, 16L))))

## [1] "qv3Uf.2Cu 17"