在rmd上添加字数

Question

我正在编写一个rmd文件，我想查看编织文件开头的总字数。

方法:我在SO上看到了一些问题，但他们都建议写下一个函数，并通过该函数传递一个rmd文件，以便从外部获得字数统计。但我需要在针织文件中添加此字数。

有可能吗？蚂蚁类型的建议将不胜感激。谢谢。

Answer 1

看起来wordcountaddin提供了你想要的功能。不幸的是，尽管(?)安装时，wordcountaddin::word_count会为我抛出一个错误，所以我无法进一步测试它。

虽然我试图弄清楚这一点，但这里有一个不使用额外R包的替代方案：

---
title: "Untitled"
output: pdf_document
---

Word count: `r as.integer(sub("(\\d+).+$", "\\1", system(sprintf("wc -w %s", knitr::current_input()), intern = TRUE))) - 20`

Lorem ipsum dolor sit amet, consectetur adipiscing elit, sed do eiusmod tempor incididunt ut labore et dolore magna aliqua.

这就产生了

​

​

这个想法是使用wc -w来计算您正在编织的Rmarkdown文件中的单词数。命令system("wc -l <file>", intern = TRUE)返回单词的数量，后面跟着<file>的名字；然后我们提取数字部分，转换为integer并减去我们想要排除的单词的数量(例如，组成整个r as.integer(...)调用的“单词”，标题等。这需要一些手动调整，不是很优雅，但适用于。在本例中，我尝试了不同的值，直到字数统计给出了第一个"Lorem ipsum“段落的字数。

我已经在Windows10和MacOS上测试过了，它似乎可以工作。