sqlite - 通过 Shiny 保存对sqlite db的更改

Question

是否可以运行一个连接到 sqlite 数据库的 Shiny 应用程序，并且可以进行更改并保存到该数据库？我的问题类似于这个问题 - R script do not write in sqlite db if I run the script in shiny但没有接受的答案，所以不确定它是否有效。

Answer 1

是的。这是可能的，这里有一个例子:

创建一个简单的数据库:

library(RSQLite)
con <- dbConnect(SQLite(), dbname="sample.sqlite")
dbWriteTable(con, "test", data.frame(value1 = letters[1:4], value2 = letters[5:8]))
dbDisconnect(con)

Shiny 的应用程序:

library(shiny)
library(RSQLite)

runApp(list(
  ui = bootstrapPage(
    textInput("value1", label = "Value 1"),
    textInput("value2", label = "Value 2"),
    actionButton("action", label = "Write to DB"),
    hr(),
    tableOutput("table")
  ),
  server = function(input, output){
    data <- eventReactive(input$action, {
    con <- dbConnect(SQLite(), dbname="sample.sqlite")
    dbWriteTable(con, "test", data.frame(value1 = input$value1, value2 = input$value2, stringsAsFactors = FALSE), append = TRUE)
    data <- dbReadTable(con, "test")
    dbDisconnect(con)
    return(data)
  })
  output$table <- renderTable(data())
}))