if (FALSE) {
if (requireNamespace("BSgenome.Hsapiens.UCSC.hg38", quietly = TRUE)) {
suppressPackageStartupMessages(library(GenomicRanges))
genome <- BSgenome.Hsapiens.UCSC.hg38::BSgenome.Hsapiens.UCSC.hg38
file_v1 <- system.file("extdata", "gencode.v1.example.gtf.gz", package = "GencoDymo2")
gtf_v1 <- load_file(file_v1) # Should return GRanges
cds_seqs <- extract_cds_sequences(gtf_v1, genome, save_fasta = FALSE)
}
}
Run the code above in your browser using DataLab