# NOT RUN {
sql.file <- system.file('extdata', 'demo/hg19_avsnp147.sqlite.sql', package = 'annovarR')
out.sqlite <- tempfile()
sqlite <- Sys.which(c('sqlite3', 'sqlite'))
sqlite <- sqlite[sqlite != ''][1]
sqlite <- unname(sqlite)
if (!is.na(sqlite)) {
sql2sqlite(sql.file = sql.file, dbname = out.sqlite,
verbose = FALSE)
unlink(out.sqlite)
}
statements <- paste0(readLines(sql.file), collapse = '\n')
sql2sqlite(statements = statements, dbname = out.sqlite,
verbose = FALSE)
unlink(out.sqlite)
# }
Run the code above in your browser using DataLab