r - 使用 data.table 写入和加载 JSON 字符串

Question

我试图用 fwrite 将 JSON 字符串保存到 CSV .但我无法用 fread 加载它.

问题:我应该在这里使用什么引号设置？

library(data.table)
library(jsonlite)

r <- list(a = "text")
d <- data.table(
  a = toJSON(r, auto_unbox = TRUE)
)

tmp <- tempfile()
fwrite(d, tmp, quote = TRUE, qmethod = "escape")
fromJSON(fread(tmp)[["a"]][1])

上面的代码产生错误:

Error: lexical error: invalid char in json text.
                                      {\"a\":\"text\"}
                     (right here) ------^

Answer 1

使用 qmethod = "double" 的解决方案对于当前版本 (1.12.3):

library(data.table)
library(jsonlite)

r <- list(a = "text")
d <- data.table(
  a = toJSON(r, auto_unbox = TRUE)
)

tmp <- tempfile()
fwrite(d, tmp, quote = TRUE, qmethod = "double")
fromJSON(gsub("\"\"", "\"", fread(tmp)[["a"]], fixed = TRUE)[1])