#' Read SBGN files as XML documents
#'
#' @param inputFile an inputFile
#' @return an XMLInternalDocument
#'
#' @examples
#' results <- readSbgn(system.file("extdata", "test_sbgn.xml", package="paxtoolsr"))
#'
#' @concept paxtoolsr
#' @export
readSbgn <- function(inputFile) {
checkInputFilePc(inputFile)
results <- xmlTreeParse(inputFile, useInternalNodes=TRUE)
return(results)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.