## 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")
# )
# }
# ## End(Not run)
Run the code above in your browser using DataLab