r - 将 NA 值传递给原始和返回

Question

我正在尝试实现一些涉及将字符串来回转换为原始字节的东西。在查看 NA 值的行为时，我注意到以下代码始终返回“NA”，而不是下面第一个示例中的 NA。

因此我的问题。如何将 NA 值传递给 raw 以便稍后将它们作为字符返回？

rawToChar(charToRaw(as.character(NA)))
[1] "NA"
rawToChar(charToRaw("NA"))
[1] "NA"

Answer 1

看来您必须编写自己的 rawToChar 函数:

myRawToChar <- function(x, ...) {
  naString <- charToRaw("NA")
  if (all.equal(x, naString)) {
    return(NA)
  }
  rawToChar(x, ...)
}

现在 myRawToChar(charToRaw("NA")) 将返回 NA 而不是 "NA"。