r - 使用 fwrite r 打印时禁用指数表示法

Question

我遇到了一个问题，即使我禁用指数表示法，fwrite以指数表示法打印数字。一个例子:

library(data.table)
options(scipen = 999)
testint = c(500000)

在我打印之前， r行为并且不以指数表示法打印:

print(testint)
[1] 500000
print(list(testint)
[[1]]
[1] 500000

但是当我这样做时:

fwrite(list(testint), "output")

文件内容为5e+05。我怀疑这个问题可能与 fwrite 有关。 ，就像我做的那样:

write(testint, "output1")

输出文件的内容为 500000。

有什么办法可以防止 fwrite从这样做？我可以改用 write ，但它们之间存在巨大的速度差异，并且我正在写入大量数据，因此如果可能，我希望避免显着的性能影响。谢谢!

编辑:如果有人感兴趣，有一个现有的开放 github 问题 here我问这个问题后发现的!

Answer 1

如果您查看 fwrite() 函数的源代码，它会将您的值直接传递给内部 C 函数:

> fwrite
function (x, file = "", append = FALSE, quote = "auto", sep = ",",
    sep2 = c("", "|", ""), eol = if (.Platform$OS.type == "windows") "\r\n" else "\n",
    na = "", dec = ".", row.names = FALSE, col.names = TRUE,
    qmethod = c("double", "escape"), logicalAsInt = FALSE, dateTimeAs = c("ISO",
        "squash", "epoch", "write.csv"), buffMB = 8, nThread = getDTthreads(),
    showProgress = getOption("datatable.showProgress"), verbose = getOption("datatable.verbose"))
{
...
    .Call(Cwritefile, x, file, sep, sep2, eol, na, dec, quote,
        qmethod == "escape", append, row.names, col.names, logicalAsInt,
        dateTimeAs, buffMB, nThread, showProgress, verbose)
    invisible()
}

如果查看被调用函数的源代码:
https://github.com/Rdatatable/data.table/blob/master/src/fwrite.c
您会注意到它们不检查 R 中设置的任何环境，并且对足够大的值使用重要的符号。
您可以按照自己喜欢的方式更改此源，构建自己的动态库并从 R 中调用它。
另一种选择是使用一些标准的 R 编写函数(尽管我怀疑您喜欢 data.table 包函数的性能)。