# NOT RUN {
test.sqlite <- sprintf('%s/snp.test.sqlite', tempdir())
test.dat <- system.file('extdata', 'demo/sqlite.dat.txt', package = 'annovarR')
params <- list(dbname = test.sqlite,
table.name = 'snp_test')
x <- sqlite.build(filename = test.dat, params)
x <- sqlite.index(params, index = 'index4', cols = c('V1', 'V2'))
indexes <- sqlite.tb.indexes(params)
test.sqlite <- normalizePath(test.sqlite, '/')
file.remove(test.sqlite)
# }
Run the code above in your browser using DataLab