if (FALSE) {
library(quanteda)
data(keyATM_data_bills)
bills_keywords <- keyATM_data_bills$keywords
bills_dfm <- keyATM_data_bills$doc_dfm # quanteda dfm object
keyATM_docs <- keyATM_read(bills_dfm)
bills_keywords$Videogame <- c("metroid", "castlevania", "balatro")
refine_keywords(bills_keywords, keyATM_docs)
}
Run the code above in your browser using DataLab