R Shiny生成数据集时点击按钮无响应问题求助

你的代码存在几个基础规范错误，直接导致应用无响应，修正后即可正常运行：

核心错误点 #

• 响应式函数语法错误：reactive(input$goButton, {}) 写法错误，响应按钮点击需用eventReactive，reactive的参数是触发依赖的表达式，而非直接传入按钮输入。
• 未引用input$前缀：生成数据时使用的sample_n、target_mean、target_sd都是UI输入控件，必须添加input$前缀才能读取值，否则会触发变量未定义错误。
• 响应式函数内直接赋值output：Shiny规范是用reactive生成数据，再让render函数依赖这些reactive对象，而非在reactive里直接给output$xxx赋值，这会打破响应式依赖链。
• 变量作用域问题：绘图时引用的mydata未定义，它仅存在于生成数据的reactive函数内部，需通过依赖reactive对象获取。

修正后的完整代码 #

## generate data set with user-defined parameters

## load libraries
library(shiny)
library(ggplot2)
library(DT)

##

options(shiny.reactlog = TRUE)

# Define UI
ui <- fluidPage(

  # Application title
  titlePanel("Synthesise data"),

  # Sidebar
  sidebarLayout(
    sidebarPanel(

      ## Sample size
      numericInput("sample_n", "Sample size", 30,
                   min = 10, max = 300, step = 1
      ),
      h4("Desired scale moments"),
      numericInput("target_mean", "Target mean", 4),
      numericInput("target_sd", "Target st dev", 1),
      hr(style = "border-top: 1px solid #000000;"),
      actionButton("goButton", "Go!"),
      actionButton("goChart", "show chart"),
    ),
    mainPanel(
      h4("generated data"),
      # table of generated data
      DT::dataTableOutput("mytable"),
      # Show a plot of the generated distribution
      plotOutput("resultPlot")
    )
  )
)

# Define server logic
server <- function(input, output) {
  # 用eventReactive响应按钮点击，生成并返回数据
  generated_data <- eventReactive(input$goButton, {
    mydata <- rnorm(input$sample_n, input$target_mean, input$target_sd) |>
      data.frame()
    colnames(mydata) <- "scale"
    mydata
  })

  # 渲染表格，依赖generated_data
  output$mytable <- DT::renderDataTable({
    req(generated_data()) # 确保数据生成后再渲染
    DT::datatable(generated_data())
  })

  # 渲染图表，依赖goButton和generated_data
  output$resultPlot <- renderPlot({
    req(input$goChart, generated_data()) # 确保按钮点击且数据存在
    ggplot(generated_data(), aes(x = scale)) +
      geom_density()
  })
}
# Run the application
shinyApp(ui = ui, server = server)

关键修改说明 #

1. 用eventReactive(input$goButton, {})生成数据，返回的generated_data()作为响应式数据对象，供后续表格和图表调用。
2. 所有输入变量添加input$前缀，正确读取UI控件的值。
3. 表格和图表的render函数直接定义在output$下，通过req()确保依赖条件满足（如数据已生成、按钮已点击）再执行渲染。
4. 移除响应式函数内直接赋值output的错误写法，恢复Shiny的响应式依赖链。

修改后，点击Go按钮会生成数据并显示表格，点击show chart按钮会基于生成的数据绘制密度图，应用可正常响应。

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