将所有内容放在一个表中可能最简单,但这取决于您以后的需求。
所有在不同的表中使用文件名(不带扩展名)作为表名:
library(RSQLite)
con <- dbConnect(SQLite(), "mydb.sqlite")
for(filename in list.files()) {
tmp <- read.table(filename, [...])
dbWriteTable(con, name = strsplit(filename,"\\.")[[1]][1], value = tmp)
}
一张表(使用 RSQLite):
library(RSQLite)
con <- dbConnect(SQLite(), "mydb.sqlite")
for(filename in list.files()) {
tmp <- read.table(filename, [...])
dbWriteTable(con, name = "mytable", value = tmp, append = TRUE)
}
一张表(使用 sqldf):
library(sqldf)
for(filename in list.files()) {
tmp <- read.table(filename, [...])
sqldf("INSERT INTO mytable SELECT * FROM tmp;", dbname = "mydb.sqlite", drv = "SQLite")
}
旁注:可能比 Firefox 插件更方便的工具可能是 http://sqlitebrowser.org/ - 这是一个偏好问题,但值得一试!多平台也是如此。