r - 使用 data.table::fwrite() 写入 .txt 文件 — is.list(x) 不是 TRUE

Question

我试图替换基本 R 函数write.table()以data.table::fwrite()加快编写速度，但该函数抱怨 is.list(x) is not TRUE.

我提供的fwrite()期望但write.table()默默接受的输入有什么问题？

sample_txt <- c("Obligationenrecht\n4 Die Bankenkommission kann unter den Voraussetzungen von Absatz 2 die\nAnwendung der vom Bundesrat anerkannten Standards zur Rechnungslegung im\nBereich der Banken einschränken.\n9. Börsengesetz vom 24. März 199530\nArt. 16          Rechnungslegung\n1 Die Bestimmungen des Bankengesetzes vom 8. November 193431 über die\nRechnungslegung für Banken gelten sinngemäss auch für Effektenhändler.\n2 Der Bundesrat kann von den Bestimmungen nach Absatz 1 abweichen, wenn")

write.table(
  sample_txt,
  file = here::here("test.txt"),
  sep = "\t",
  row.names = FALSE,
  col.names = FALSE
)

data.table::fwrite(
  sample_txt,
  file = here::here("test.txt"),
  sep = ";",
  col.names = FALSE,
  row.names = FALSE
)
#> Error in data.table::fwrite(sample_txt, file = here::here("test.txt"), : is.list(x) is not TRUE

^{由reprex 包（v0.3.0）于 2019 年 6 月 17 日创建}

Answer 1

感谢@s.brunel 和@Roland，这里有两个可行的解决方案：

sample_txt <- c("Obligationenrecht\n4 Die Bankenkommission kann unter den Voraussetzungen von Absatz 2 die\nAnwendung der vom Bundesrat anerkannten Standards zur Rechnungslegung im\nBereich der Banken einschränken.\n9. Börsengesetz vom 24. März 199530\nArt. 16          Rechnungslegung\n1 Die Bestimmungen des Bankengesetzes vom 8. November 193431 über die\nRechnungslegung für Banken gelten sinngemäss auch für Effektenhändler.\n2 Der Bundesrat kann von den Bestimmungen nach Absatz 1 abweichen, wenn")

# solution 1 
data.table::fwrite(
  x = data.table::data.table(sample_txt),
  file = here::here("test.txt"),
  sep = ";",
  col.names = FALSE,
  row.names = FALSE
)

# solution 2 

data.table::fwrite(
  x = list(sample_txt),
  file = here::here("test.txt"),
  sep = ";",
  col.names = FALSE,
  row.names = FALSE
)

^{由reprex 包（v0.3.0）于 2019 年 6 月 17 日创建}