# \donttest{
# Clean up the Unicode characters to make things more readable:
abhidhamma_pitaka$name <-
stringi::stri_unescape_unicode(abhidhamma_pitaka$name)
# }
# \donttest{
# Count all the words in the Abhidhamma Pitaka:
sum(tipitaka_long[tipitaka_long$book %in% abhidhamma_pitaka$book, "n"])
# }
Run the code above in your browser using DataLab