使用selectinput in R shiny创建SQL查询

ui <- fluidPage(
  selectInput("table", "选择表格或视图：",
              choices = c("table1", "table2", "view1")),
  actionButton("submit", "提交查询"),
  verbatimTextOutput("result")
)

server <- function(input, output) {
  observeEvent(input$submit, {
    # 创建数据库连接
    con <- dbConnect(drv = RMySQL::MySQL(),
                     dbname = "your_database",
                     host = "your_host",
                     port = 3306,
                     user = "your_username",
                     password = "your_password")
    
    # 构建SQL查询语句
    query <- paste0("SELECT * FROM ", input$table)
    
    # 执行查询
    result <- dbGetQuery(con, query)
    
    # 关闭数据库连接
    dbDisconnect(con)
    
    # 返回查询结果
    output$result <- renderPrint(result)
  })
}