# NOT RUN {
variants_sample <- system.file("extdata", "variants_sample.csv", package = "utr.annotation")
# Partition variants_sample file equally into 3 variant files
# and store them in user specified chunkPath folder
partitionVariantFile(variantFile = variants_sample,
chunkNum = 3,
chunkPath = "chunks_3",
species = "human",
ensemblVersion = 93,
dataDir = "db_all_variants")
# Partition variants_sample file into smaller variant files each of which contains 7 variants,
# and store them in user specified chunkPath folder
partitionVariantFile(variantFile = variants_sample,
chunkSize = 7,
chunkPath = "chunks_7_vars",
species = "human",
ensemblVersion = 93,
dataDir = "db_all_variants")
unlink("db_all_variants", recursive = TRUE)
unlink("chunks_3", recursive = TRUE)
unlink("chunks_7_vars", recursive = TRUE)
# }
Run the code above in your browser using DataLab