###################################################
### chunk number 1: read
###################################################
#line 31 "vignettes/rsbml/inst/doc/quick-start.Rnw"
library(rsbml)
doc <- rsbml_read(system.file("sbml", "GlycolysisLayout.xml", package = "rsbml"), dom = FALSE)


###################################################
### chunk number 2: dom
###################################################
#line 46 "vignettes/rsbml/inst/doc/quick-start.Rnw"
dom <- rsbml_dom(doc)


###################################################
### chunk number 3: ids
###################################################
#line 54 "vignettes/rsbml/inst/doc/quick-start.Rnw"
sapply(species(model(dom)), id)


###################################################
### chunk number 4: graph
###################################################
#line 66 "vignettes/rsbml/inst/doc/quick-start.Rnw"
g <- rsbml_graph(doc)
graph::nodes(g)


###################################################
### chunk number 5: check
###################################################
#line 80 "vignettes/rsbml/inst/doc/quick-start.Rnw"
rsbml_check(doc)


###################################################
### chunk number 6: problems
###################################################
#line 93 "vignettes/rsbml/inst/doc/quick-start.Rnw"
tryCatch(rsbml_read("non-existent-file.xml"), 
         error = function(err) err$msg)


###################################################
### chunk number 7: xml
###################################################
#line 103 "vignettes/rsbml/inst/doc/quick-start.Rnw"
xml <- rsbml_xml(doc)