如何保存Rstudio在MYSQL中读取的数据

在Rstudio中读取出MYSQL的数据后，如何将数据保存下来被Rshiny使用？
如何在Rshiny可视化过程中使用MYSQL中的数据？

已回答，莫辜负
————————————————————————————————————————

首先把数据保存到本地：

library(RMySQL)

# 连接数据库
con <- dbConnect(MySQL(), user = "user", password = "password",
                 dbname = "database_name", host = "host_name")

# 从数据库中读取数据
data <- dbGetQuery(con, "SELECT * FROM table_name")

# 断开数据库连接
dbDisconnect(con)

# 将数据保存到本地
saveRDS(data, "path/to/file.rds")

得到file.rds文件，在 RShiny 中使用保存的数据，只需加载保存的 RDS 文件，然后在 Shiny 应用程序中使用即可。下面是一个示例：

# 加载保存的数据
data <- readRDS("path/to/file.rds")

# 在 Shiny 应用程序中使用数据
ui <- fluidPage(
  dataTableOutput("table")
)

server <- function(input, output) {
  output$table <- renderDataTable(data)
}

shinyApp(ui, server)