通过单击输入文本框从R Shiny运行SQL查询

install.packages("shiny")
install.packages("DBI")

library(DBI)

# 连接到MySQL数据库
con <- dbConnect(RMySQL::MySQL(), 
                 dbname = "your_database_name",
                 host = "your_host",
                 port = your_port,
                 user = "your_username",
                 password = "your_password")

# 运行SELECT查询
query <- "SELECT * FROM your_table"
result <- dbGetQuery(con, query)

library(shiny)

# 定义UI
ui <- fluidPage(
  titlePanel("运行SQL查询"),
  sidebarLayout(
    sidebarPanel(
      # 输入SQL查询
      textInput("query", "输入SQL查询：")
    ),
    mainPanel(
      # 显示查询结果
      tableOutput("result")
    )
  )
)

# 定义Server
server <- function(input, output) {
  # 运行SQL查询并显示结果
  output$result <- renderTable({
    query <- input$query
    dbGetQuery(con, query)
  })
}

# 运行应用程序
shinyApp(ui, server)