powered by
readSifnx(inputFile, asDT = TRUE)
results <- readSifnx(system.file("extdata", "test_sifnx.txt", package="paxtoolsr")) chebiIds <- lapply(results$nodesUniXref, function(x) { x[which(grepl("CHEBI", x))] })
Run the code above in your browser using DataLab