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