if (FALSE) {
# Prepare a keyATM_docs object
keyATM_docs <- keyATM_read(input)
# Keywords are in a list
keywords <- list(Education = c("education", "child", "student"),
Health = c("public", "health", "program"))
# Visualize keywords
keyATM_viz <- visualize_keywords(keyATM_docs, keywords)
# View a figure
keyATM_viz
# Save a figure
save_fig(keyATM_viz, filename)
}
Run the code above in your browser using DataLab