article_dir <- system.file("examples/article",
package = "texor")
math <- texor::count_inline(article_dir, "math")
code <- texor::count_inline(article_dir, "inlinecode")
cite <- texor::count_inline(article_dir, "cite")
print(paste("math inlines : ", math, "\n",
"code inlines : ", code, "\n",
"citations : ", cite))
Run the code above in your browser using DataLab