as_square_brace: Conver parser Output to Square Braces

In trinker/parsent: Sentence Parsing Tools

Description

Many tree parsers (e.g., online, LaTeX, etc.) require square braces in the parse. These functions prepare the parse for use in other plotting venues.

Usage

as_square_brace(x, ...)

as_square_brace_latex(x, ...)

Arguments

x	A parse vector from parser.
...	ignored.

Value

as_square_brace - returns a vector appropriate for use in a many online parse tree generators.

as_square_brace_latex - returns a cat vector appropriate for use in a LaTeX document.

Note

When using as_square_brace_latex, the user will need to add the following LaTeX packages to the document: qtree, color, xcolor. Additionally, the user will need to add the code chunk, \newenvironment{dummy}{}{}, to the preamble.

Examples

## Not run: 
## pass `as_square_brace` to an online parse tree:
## http://yohasebe.com/rsyntaxtree
if(!exists('parse_ann')) {
    parse_ann <- parse_annotator()
}
x <- parser("Really, I like chocolate because it is good.", parse_ann)
xsquared <- as_square_brace(x)

## get tree from web
if (!require("pacman")) install.packages("pacman"); library(pacman)
p_load_gh("ropensci/RSelenium")
p_load(XML, RSelenium)

# download Selenium Server, if not already present
checkForServer(); Sys.sleep(2)

# Open a remote browser
remDr <- remoteDriver(
    remoteServerAddr = "localhost",
    port = 4444,
    browserName = "firefox"
)

## MIGHT NEED:
## RSelenium::startServer()

remDr$open()

## Now we pass the url from above and the page is opened
remDr$navigate("http://yohasebe.com/rsyntaxtree/")

webElem <- remDr$findElement("css", "textarea[id='data']")
webElem$clearElement()
webElem$sendKeysToElement(list(xsquared)); Sys.sleep(.5)


webElem2 <- remDr$findElement("css", "button[id='draw_png']")
webElem2$clickElement()

## LaTeX Version
## copy .Rmd from parser package
treeloc <- system.file("extra_files/testtree.Rmd", package = "parsent")
file.copy(treeloc, getwd())

## look at .Rmd
file.edit("testtree.Rmd")

## render .Rmd file
p_load(rmarkdown)
rmarkdown::render("testtree.Rmd")

## End(Not run)

trinker/parsent documentation built on May 31, 2019, 9:41 p.m.