会话特定的RSQLite表

Question

我正在写一个应用程序使用闪亮，其中用户可以添加，编辑或复制数据。其思想是，在他们在临时表中输入数据之后，数据被上载到主数据库，并且表被重置。

我使用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)