dir <- c(system.file("extdata/Strelka-ID-vcf",
package = "ICAMS"))
if (requireNamespace("BSgenome.Hsapiens.1000genomes.hs37d5", quietly = TRUE)) {
catalogs <-
StrelkaIDVCFFilesToZipFile(dir,
zipfile = file.path(tempdir(), "test.zip"),
ref.genome = "hg19",
region = "genome",
base.filename = "Strelka-ID")
unlink(file.path(tempdir(), "test.zip"))}
Run the code above in your browser using DataLab