将闪亮的数据存储到mySql中

Question

我想将应用程序的输出插入到我的 sql 数据库中，我已成功在数据库和闪亮应用程序之间建立连接，这是我的代码

     library(shiny)
     library(DBI)
    ui <- fluidPage(
    textInput("id", "Enter your ID:", "1"),
 tableOutput("tbl")
)

server <- function(input, output, session) {
     output$tbl <- renderTable({
   conn <- dbConnect(
     drv = RMySQL::MySQL(),
  dbname = "shiny_database",
  host = "r.cr7lk1jwjdht.us-east-2.rds.amazonaws.com",
  username = "kartik",
  password = "12345678")
on.exit(dbDisconnect(conn), add = TRUE)
    query <- paste0("INSERT INTO db(id2 , id ) VALUES ('13','43') ")
  # dbGetQuery(conn, query)

 # query <- paste0("SELECT * FROM db WHERE id = '", input$id, "';")   
dbGetQuery(conn, query)

 })
  }
shinyApp(ui, server)

在这里我可以使用插入查询插入我的数据，但是当我有大量输出数据要插入时，在这种情况下我不能一次又一次地使用插入查询。 谁能帮助我如何插入我的数据。 搜索后我还发现有临时文件夹，其中输出是临时存储的，如果有可能我可以使用临时文件夹将数据放入数据库中。

Answer 1

像下面的基本代码一样将数据框插入数据库。

library(shiny)
library(DBI)
library(pool)
pool <- dbPool(drv = RMySQL::MySQL(),dbname = "db_name",host = "host",username = "user_name",password = "password", port = 3306)

ui <- fluidPage(
  submitButton("submit")
)
server <- function(input, output){
  dbWriteTable(pool, "dummyTable", df, append = TRUE) #this will insert the entire dataframe at once into dummyTable
}

shinyApp(ui, server)

要继续使用此方法，您需要将所有值框到一个数据框中。当您提交按钮时，数据框将被插入到表中。 （除非重复，否则请勿发布用户凭据）

Answer 2

使用 actionButton() 怎么样？ https://shiny.rstudio.com/reference/shiny/1.0.1/actionButton.html

您可以将actionButton(inputId = "IDForActionButton") 放在ui.R 中。 actionButton() 在 UI 上创建一个按钮。 当按下按钮时，会触发重新计算 server.R 代码，其中包括 input$IDForActionButton。

您必须将input$id 用isolate() 括起来，如链接所示。 因为，如果不这样做，每次更改 input$id 的内容时，都会触发重新计算包含input$id 的 server.R 代码。

可能使用池库会对您有所帮助。 https://shiny.rstudio.com/articles/pool-basics.html