0

首先,我想将闪亮的应用程序与 rds(AWS) 中的 mysql 连接起来。用 mysql 连接闪亮后,我想将闪亮的输出存储在数据库中,这样一旦生成输出,我就不需要再次编译我的程序,我可以从数据库中检索数据。在谷歌深入搜索后,我得到以下脚本来获取数据

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

server <- function(input, output, session) {
output$tbl <- renderTable({
conn <- dbConnect(
  drv = RMySQL::MySQL(),
  dbname = "shinydemo",
  host = "shiny-demo.csa7qlmguqrf.us-east-1.rds.amazonaws.com",
  username = "guest",
  password = "guest")
on.exit(dbDisconnect(conn), add = TRUE)
query <- paste0("SELECT * FROM City WHERE ID = '", input$ID, "';")
dbGetQuery(conn, query)
  })
}

shinyApp(ui, server)

我没有得到任何帮助脚本来将我的输出数据存储在我的数据库中。请提供任何帮助。

4

0 回答 0