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)
# 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(
lapply(
list.files(path="~/Publikacje/ProgramowanieR/rozdzialy/",
pattern="*.tex$", recursive=TRUE, full.names=TRUE),
readLines),
stri_stats_latex),
1, sum)
CharsWord CharsCmdEnvir CharsWhite Words Cmds Envirs
718755 458403 281989 120202 37055 6119
Run the code above in your browser using DataLab