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