# NOT RUN {
use("polmineR")
template <- jsonlite::fromJSON(system.file(package = "polmineR", "templates", "plpr.template.json"))
options(polmineR.templates = list("GERMAPARLMINI" = template))
merkel <- partition(
"GERMAPARLMINI",
date = "2009-11-10", speaker = "Angela Dorothea Merkel",
type = "plpr"
)
read(merkel, meta = c("speaker", "date"))
read(
merkel,
highlight = list(yellow = c("Deutschland", "Bundesrepublik"), lightgreen = "Regierung"),
meta = c("speaker", "date")
)
# }
Run the code above in your browser using DataLab