rsyntax_example.R

install.packages("udpipe")
install.packages("rsyntax")
library(udpipe)
tokens = udpipe('John Doe, who is a great guy, said yesterday that all was well', 'english') |>
  as_tokenindex()

plot_tree(tokens, token, lemma, upos)

verbs = c("tell", "show", "acknowledge", "admit", "affirm", "allege", 
          "announce", "assert", "attest", "avow", "call", "claim", "comment", 
          "concede", "confirm", "declare", "deny", "exclaim", "insist", "mention", 
          "note", "post","predict", "proclaim", "promise", "reply", "remark", 
          "report", "say", "speak", "state", "suggest", "talk", "tell", "think",
          "warn","write", "add")

direct = tquery(lemma = verbs, label='verb',
                children(req=FALSE, relation = c('npadvmod'), block=TRUE),
                children(relation=c('su','nsubj','agent','nmod:agent'), label='source'),
                children(label='quote'))

tokens = annotate_tqueries(tokens, 'quote', dir=direct)


syntax_reader(tokens, annotation = 'quote', value = 'source')
plot_tree(tokens, token, lemma, upos, annotation='quote', )