s <- c("Lorem \\textbf{ipsum} dolor sit \\textit{amet}, consectetur adipisicing elit.",
"\\begin{small}Proin nibh augue,\\end{small} suscipit a, scelerisque sed, lacinia in, mi.",
"")
stri_stats_latex(s)
## Not run:
# # Stats for the preprint version of M. Gagolewski's book
# # "Programowanie w jezyku R", Wydawnictwo Naukowe PWN, 2014.
# # see http://rksiazka.rexamine.com
# apply(
# sapply(
# list.files(path="~/Publikacje/ProgramowanieR/rozdzialy/",
# pattern=glob2rx("*.tex"), recursive=TRUE, full.names=TRUE),
# function(x)
# stri_stats_latex(readLines(x))
# ), 1, sum)
#
# CharsWord CharsCmdEnvir CharsWhite Words Cmds Envirs
# 718755 458403 281989 120202 37055 6119
# ## End(Not run)
Run the code above in your browser using DataCamp Workspace