xml_sample <- system.file(
package = "GermaParl2",
"extdata", "cwb", "indexed_corpora",
"germaparl2mini"
)
if (nchar(xml_sample) > 0L && interactive()){
use(pkg = "GermaParl2", corpus = "GERMAPARL2MINI")
corpus("GERMAPARL2MINI") %>%
tree_structure()
corpus("GERMAPARL2MINI") %>%
subset(speaker_name == "Konrad Adenauer") %>%
tree_structure()
corpus("GERMAPARL2MINI") %>%
subset(speaker_name == "Konrad Adenauer") %>%
subset(p) %>%
tree_structure()
corpus("GERMAPARL2MINI") %>%
subset(ne_type) %>%
tree_structure()
}
Run the code above in your browser using DataLab