小编kiw*_*iwi的帖子

以下是一些虚构的数据：

tibble(fruit = rep(c("apple", "pear", "orange"), each = 3),
       size = rep(c("big", "medium", "small"), times = 3),
       # summer stock
       shopA_summer_wk1 = abs(round(rnorm(9, 10, 5), 0)),
       shopA_summer_wk2 = abs(round(rnorm(9, 10, 5), 0)),
       shopB_summer_wk1 = abs(round(rnorm(9, 10, 5), 0)),
       shopB_summer_wk2 = abs(round(rnorm(9, 10, 5), 0)),
       shopC_summer_wk1 = abs(round(rnorm(9, 10, 5), 0)),
       shopC_summer_wk2 = abs(round(rnorm(9, 10, 5), 0)),
       # winter stock
       shopA_winter_wk1 = abs(round(rnorm(9, 8, 4), 0)),
       shopA_winter_wk2 = abs(round(rnorm(9, 8, 4), 0)),
       shopA_winter_wk3 = abs(round(rnorm(9, 8, 4), 0)),
       shopB_winter_wk1 = abs(round(rnorm(9, …

我有一个包含许多表的大型 SQLite 数据库。我已使用 RSQLite 和 DBI 包在 RStudio 中建立了与此数据库的连接。（我已命名该数据库db）

library(RSQLite)
library(DBI)

目前我必须读入所有表并手动为它们分配名称。例如：

country <- dbReadTable(db, "country")
date <- dbReadTable(db, "date")
#...and so on

您会发现，如果您有很多表，这可能是一个非常耗时的过程。

所以我想知道是否可以创建一个新函数或使用现有函数（例如lapply()？）来更有效地完成此操作并从本质上加快此过程？

非常感谢任何建议:)