将SQL输入日期范围传递给SHINY中的查询

# 导入必要的R包
library(shiny)
library(DBI)
library(RMySQL)

# 创建SHINY应用程序
ui <- fluidPage(
  # 创建日期选择器
  dateRangeInput("date_range", "选择日期范围：", start = Sys.Date() - 7, end = Sys.Date()),
  # 创建查询结果显示区域
  tableOutput("query_result")
)

server <- function(input, output) {
  # 连接到数据库
  con <- dbConnect(RMySQL::MySQL(), dbname = "your_database_name", host = "your_host", 
                   port = 3306, user = "your_username", password = "your_password")
  
  # 定义查询函数
  query_data <- function(start_date, end_date) {
    query <- paste0("SELECT * FROM your_table WHERE date_column BETWEEN '", start_date, "' AND '", end_date, "'")
    result <- dbGetQuery(con, query)
    return(result)
  }
  
  # 监听日期范围的变化，并执行查询
  observeEvent(input$date_range, {
    start_date <- input$date_range[1]
    end_date <- input$date_range[2]
    query_result <- query_data(start_date, end_date)
    output$query_result <- renderTable(query_result)
  })
  
  # 断开与数据库的连接
  onSessionEnded(function() {
    dbDisconnect(con)
  })
}

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