如何在Rshiny网页中使用sql查询作为输出

install.packages("shiny")

library(shiny)

ui <- fluidPage(
  sidebarLayout(
    sidebarPanel(
      textInput("sql_query", "Enter SQL Query:")
    ),
    mainPanel(
      # 添加输出结果的组件
      verbatimTextOutput("result")
    )
  )
)

library(shiny)
library(DBI)
library(RMySQL)

# 连接到MySQL数据库
con <- dbConnect(MySQL(), user = "your_username", password = "your_password", dbname = "your_database")

server <- function(input, output) {
  # 定义要在输出中执行的响应性函数
  output$result <- renderPrint({
    # 从输入中获取SQL查询
    sql_query <- input$sql_query
    
    # 执行SQL查询
    result <- dbGetQuery(con, sql_query)
    
    # 返回查询结果
    result
  })
}

shinyApp(ui, server)