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