Shiny应用中如何在SQL查询中正确使用响应式输入custo_tot

错误原因 #

input$custo_tot 是Shiny的反应式值，这类值只能在「反应式消费者」内部访问——比如reactive()、observe()、observeEvent()、render*()这类函数中。直接在全局代码或非反应式逻辑里调用它，就会触发该错误。

解决方案 #

结合你的submit按钮，把SQL查询和数据下载逻辑放到observeEvent中（绑定按钮点击事件），同时用reactiveVal存储查询结果，供后续绘图使用。具体修改如下：

完整Server代码示例

server <- function(input, output) {
  # 定义反应式变量存储查询结果
  df_data <- reactiveVal(NULL)
  
  # 绑定submit按钮点击事件，执行查询
  observeEvent(input$submit, {
    # 构建SQL查询
    sql <- "你的原始SQL查询语句" 
    sql <- gsub("custo_rest_min_aux", custo_rest_min_aux, sql)
    sql <- gsub("custo_rest_max_aux", custo_rest_max_aux, sql)
    sql <- gsub("month_rest", sQuote(month_rest), sql)
    sql <- gsub("custo_tot", input$custo_tot, sql)
    
    # 执行BigQuery查询并下载数据
    tb <- bq_project_query(projectid, sql)
    df <- bq_table_download(tb) %>% data.frame()
    
    # 将结果存入反应式变量
    df_data(df)
  })
  
  # 绘制图表，依赖反应式变量df_data
  output$grafico_investimento_atual <- renderPlot({
    # 先判断数据是否存在，避免初始空值报错
    req(df_data())
    
    # 这里写入你的绘图逻辑，示例：
    ggplot(df_data(), aes(x = 你的X列, y = 你的Y列)) + geom_col()
  })
}

# 启动Shiny应用
shinyApp(ui = ui, server = server)

额外安全建议 #

用gsub替换SQL参数存在SQL注入风险，建议改用glue::glue_sql构建参数化查询，更安全可靠：

library(glue)
sql <- glue_sql("
  SELECT * 
  FROM 你的目标表名
  WHERE custo_tot = {input$custo_tot}
    AND month_rest = {month_rest}
    AND custo_rest_min_aux = {custo_rest_min_aux}
    AND custo_rest_max_aux = {custo_rest_max_aux}
  ", .con = 你的BigQuery连接对象)

内容的提问来源于stack exchange，提问作者Matheus Barreto