inst/extdata/demo/DARNED.R

In annovarR: Integrated Framework to Annotate Genetic Variants

options(stringsAsFactors = F)
library(stringr)
library(annovarR)
i <- "hg19_DARNED.txt"
cat(sprintf('File:%s', i), sep = "\n")
db <- str_replace(i, fixed(".txt"), "")
cat(sprintf('DB:%s', db), sep = "\n")
cat(sprintf('Dat:%s', i), sep = "\n")
db.sqlite <- paste0(db, ".sqlite")
unlink(db.sqlite)
sqlite.build(i, db.sqlite, db, verbose = T)
cols <- c('chr', 'start')
sqlite.index(db.sqlite, db, "chr_start_index", cols, verbose = T)