## Not run:
# library(dplyr)
# library(textmining)
# corp <- tmCorpus(c("This is corp corp", "Document 2 corp corp"))
# rd <- tmTaggedCorpus(corp)
# filtered_tmTaggedCorpus <- filter_documents(rd, "tag", "NP")
# corpus <- tmCorpus(filtered_tmTaggedCorpus)
# ## End(Not run)
Run the code above in your browser using DataLab