如何将mysql中表中的读取数据转换为shiny

library(RMySQL)
con <- dbConnect(MySQL(), user = "username", password = "password", dbname = "database_name", host = "localhost")

query <- "SELECT * FROM table_name"
data <- dbGetQuery(con, query)

library(shiny)

ui <- fluidPage(
  # 在这里定义应用程序的用户界面布局
  # 可以使用Shiny的各种UI组件和布局选项
)

server <- function(input, output) {
  # 在这里定义应用程序的服务器逻辑
  # 可以使用输入（input）和输出（output）对象来处理数据和交互
}

shinyApp(ui, server)

library(shiny)

ui <- fluidPage(
  # 在这里定义应用程序的用户界面布局
  # 可以使用Shiny的各种UI组件和布局选项
  tableOutput("data_table")
)

server <- function(input, output) {
  # 在这里定义应用程序的服务器逻辑
  # 可以使用输入（input）和输出（output）对象来处理数据和交互
  
  output$data_table <- renderTable({
    # 在这里使用从MySQL表中读取的数据
    data
  })
}

shinyApp(ui, server)