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