如何在R中保存WikipediR查询的wiki文本结果？

Question

我在R中使用WikipediR包来查询Wikipedia，代码是这样的：

sink("output.txt",type = "output")
page_content("en","wikipedia", page_name = "Philipp Melanchthon",  
as_wikitext=TRUE)

一切顺利，但我不知道如何仅将标记 wikitext 结果保存在文件中。有没有办法而不是使用sink来正确保存结果？

Answer 1

要将Wikipedia页面的标记源保存为文本文件，您可以执行以下操作：

library('WikipediR');
x <- page_content('en','wikipedia',page_name='Philipp Melanchthon',as_wikitext=T);
writeLines(x$parse$wikitext$`*`,'output.txt');