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)

会话特定的RSQLite表

1 个答案: