# \donttest{
# Path to example GenBank file in the package
genbank_file <- system.file(
"extdata",
"BGC0000001.gbk",
package = "geneviewer"
)
# Read all data from the example GenBank file
gbk_data <- read_gbk(genbank_file)
# Read only specific sections from the example GenBank file
gbk_data <- read_gbk(genbank_file, sections = c("LOCUS", "DEFINITION"))
# Read specific features from the FEATURES section of the example GenBank file
gbk_data <- read_gbk(genbank_file, features = c("gene", "CDS"))
# Read data without the origin sequence
gbk_data <- read_gbk(genbank_file, origin = FALSE)
# }
Run the code above in your browser using DataLab