## Not run:
# sampleCorpusPkgDir <- system.file(package="polmineR.sampleCorpus")
# sampleCorpusRegistryDir <- file.path(sampleCorpusPkgDir, "extdata", "cwb", "registry")
# oldRegistryDir <- resetRegistry(sampleCorpusRegistryDir)
# sampleCorpusPartition <- partition("PLPRBTTXT", def=list(text_id=".*"), method="grep", verbose=F)
# resetRegistry(oldRegistryDir)
# ## End(Not run)
Run the code above in your browser using DataLab