library(devtools)
load_all()
devtools::check()
q()n
q()
devtools::test()
ga
ga
ga
ga
gdsfn(ga)
file
file1
ga
gdsfn(ga)
ga
str(ga)
GDSArraySeed(file1)
gf <- GDSFile(file1)
gf
gf$genotype
gf$genotype$data
gdsfn(gf) <- file
gf
gf
gf
gf
gdsfn(gf)
gdsfn(ga)
gdsfn(seed(ga))
gf
gdsfn(ga)
gdsfn(ga) <- file1
ga
devtools::document()
devtools::document()
file1
gdsfn(ga)
ga
ga
showMethods()
showMethods("gdsfn<-")
q()n
q()
devtools::test()
ls()
gdsfn(ga)
gdsfn(ga) <- file1
devtools::check()
devtools::check()
devtools::document()
devtools::check()
devtools::document()
devtools::check()
q()n
q()
devtools::document()
devtools::document()
devtools::check()
closefn.gds()
closefn.gds
devtools::install()
devtools::document()
devtools::check()
setwd()
getwd()
setwd("VariantExperiment-fix/")
devtools::check()
devtools::install()
devtools::check()
ls()
devtools::load_all()
traceback()
dir()
setwd("..")
dir()
getwd()
getwd()
devtools::install()
devtools::install()
library(GDSArray)
q()n
q()
dir()
devtools::load_all()
acquireGDS
file
ff <- acquireGDS(file, type="seqgds")
ff
is(ff)
releaseGDS(file)
ff
rm(ff)
setwd("VariantExperiment-fix/")
devtools::load_all()
devtools::test()
debug(.showAvailable_snparray)
showfile.gds()
gdsnodes(file)
file
ls()
ls()
file
gdsnodes(file)
showfile.gds()
gdsnodes
GDSArray::gdsnodes
Q
setwd("..")
dir()
ls()
gdsnodes(file)
debug("gdsnodes", signature="character")
acquireGDS(file)
showfile.gds()
debug(acquireGDS)
acquireGDS(file)
acquireGDS(file)
i
persistent$handles
persistent
length(persistent$handles)
persistent$handles[[1]]
Q
q()
