Специфичная для сессии таблица RSQLite - PullRequest
Новая
       15

Специфичная для сессии таблица RSQLite

2 голосов
/ 04 июля 2019

Я пишу приложение, используя блестящие, где пользователи могут добавлять, редактировать или копировать данные. Идея состоит в том, что после того, как они введут туда данные во временную таблицу, они загружаются в основную базу данных и таблица сбрасывается.

Я создал таблицу с использованием 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)

Проблема заключается в том, что если несколько пользователей используют приложение одновременно, все данные добавляются в одну временную таблицу. Есть ли способ создать временную таблицу, специфичную для каждого сеанса?

1 Ответ

2 голосов
/ 04 июля 2019

Ваш дизайн таблицы должен быть изменен, чтобы включить столбец, который отслеживает конкретный сеанс, к которому относятся данные.Вот один из вариантов: 

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)
...