# NOT RUN {
data("KDVizData")
wordsToReplace <- system.file("extdata", "KDReplaceWords.txt", package = "KDViz")
myCorpus <- BibToCorpus(bibData = KDVizData, bibUnits = "Keywords",
controlList = c("stripWhitespace", "removeNumbers"), stopWords = TRUE)
myNewCorpus <- ReplaceByList(myCorpus, wordsFile = wordsToReplace)
# }
Run the code above in your browser using DataLab