会话特定的 RSQLite 表

Question

我正在使用 Shiny 编写一个应用程序，用户可以在其中添加、编辑或复制数据。这个想法是，在他们在临时表中输入数据后，将其上传到主数据库并重置表。

我使用 RSQLite 制作了一个表格，代码如下：

    library(RSQLite)
    library(pool)
    library(DBI)

    pool <- dbPool(RSQLite::SQLite(), dbname = "db.sqlite")

    df <- data.frame( name=character(),
                      group=character(),
                      stringsAsFactors = FALSE)

    dbWriteTable(pool, "#df_temp", df, temporary = TRUE, overwrite = TRUE)

问题在于，如果多个用户同时使用该应用程序，所有数据都会添加到同一个临时表中。有没有办法为每个会话创建一个特定的临时表？

Answer 1

您的表设计应更改为包含一个跟踪数据所属特定会话的列。这是一种选择：

library(uuid)

df <- data.frame(sessionId=character(),
                 name=character(),
                 group=character(),
                 stringsAsFactors=FALSE)

# populate the data frame

# assign a UUID (unique identifier) for this particular R user session
sessionId = uuid()
df$sessionId = sessionId
dbWriteTable(pool, "user_data", df, overwrite=FALSE, append=TRUE)

在会话结束时，您可以删除所有已创建的记录：

conn <- dbConnect(RSQLite::SQLite(), "your.db")
sql <- paste0("DELETE FROM user_data WHERE uuid = ", sessionId)
dbExecute(conn, sql)