test_path <- system.file("tests", package = "rtracklayer")
test_gff3 <- file.path(test_path, "genes.gff3")
## basic import
test <- import(test_gff3, asRangedData = FALSE)
test
## import.gff functions
import.gff(test_gff3, asRangedData = FALSE)
import.gff3(test_gff3, asRangedData = FALSE)
## GFFFile derivatives
test_gff_file <- GFF3File(test_gff3)
import(test_gff_file, asRangedData = FALSE)
test_gff_file <- GFFFile(test_gff3)
import(test_gff_file, asRangedData = FALSE)
test_gff_file <- GFFFile(test_gff3, version = "3")
import(test_gff_file, asRangedData = FALSE)
## from connection
test_gff_con <- file(test_gff3)
test <- import(test_gff_con, format = "gff", asRangedData = FALSE)
close(test_gff_con)
## various arguments
import(test_gff3, genome = "hg19", asRangedData = FALSE)
import(test_gff3, colnames = character(), asRangedData = FALSE)
import(test_gff3, colnames = c("strand", "geneName"), asRangedData = FALSE)
## 'which'
which <- RangesList(chr10 = IRanges(90000, 93000))
import(test_gff3, which = which, asRangedData = FALSE)
## Not run:
# ## 'append'
# test_gff3_out <- file.path(tempdir(), "genes.gff3")
#
# export(test[seqnames(test) == "chr10"], test_gff3_out)
# export(test[seqnames(test) == "chr12"], test_gff3_out, append = TRUE)
# import(test_gff3_out, asRangedData = FALSE)
#
# ## 'index'
# export(test, test_gff3_out, index = TRUE)
# test_bed_gz <- paste(test_gff3_out, ".gz", sep = "")
# import(test_bed_gz, which = which, asRangedData = FALSE)
#
# ## RangedDataList
# rdl <-
# RangedDataList(new("UCSCData", test[1],
# trackLine = new("BasicTrackLine", name = "chr10")),
# new("UCSCData", test[2],
# trackLine = new("BasicTrackLine", name = "chr12")))
# names(rdl) <- names(test)
# export(rdl, test_gff3_out)
# import.ucsc(test_gff3_out, asRangedData = FALSE)
# ## End(Not run)
Run the code above in your browser using DataLab