# \dontshow{
options(gmax.processes = 2)
# }
f1 <- tempfile()
gextract("sparse_track", gintervals(1, 5000, 20000), file = f1)
f2 <- tempfile()
gtrack.array.extract("array_track", c("col2", "col3", "col4"),
gintervals(1, 0, 20000),
file = f2
)
f3 <- tempfile()
gtrack.array.extract("array_track", c("col1", "col3"),
gintervals(1, 0, 20000),
file = f3
)
gtrack.array.import("test_track1", "Test array track 1", f1, f2)
gtrack.array.extract("test_track1", NULL, .misha$ALLGENOME)
gtrack.array.import(
"test_track2", "Test array track 2",
"test_track1", f3
)
gtrack.array.extract("test_track2", NULL, .misha$ALLGENOME)
gtrack.rm("test_track1", TRUE)
gtrack.rm("test_track2", TRUE)
unlink(c(f1, f2, f3))
Run the code above in your browser using DataLab