# NOT RUN {
db <- tempfile()
file.create(db)
del(db, del.type = 'file')
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'))
del(sqlite.connect.params = list(dbname = test.sqlite,
table.name = 'snp_test'), del.type = 'table')
del(sqlite.connect.params = list(dbname = test.sqlite,
table.name = 'snp_test'))
# }
Run the code above in your browser using DataCamp Workspace