# NOT RUN {
if (require(polmineR.sampleCorpus) && require(rcqp)){
use("polmineR.sampleCorpus")
bt <- partition("PLPRBTTXT", def=list(text_date=".*"), regex=TRUE)
kwic(bt, "Integration")
kwic(
bt, "Integration",
left=20, right=20,
meta=c("text_date", "text_name", "text_party")
)
kwic(
bt, '"Integration" [] "(Menschen|Migrant.*|Personen)"',
left=20, right=20,
meta=c("text_date", "text_name", "text_party")
)
}
# }
Run the code above in your browser using DataLab