用Shiny Rmarkdown中的动作按钮绘图

Question

我很好奇以下为什么不起作用。当尝试使用对动作按钮的反应进行绘图时，它无法在Shiny中显示情节。

知道我做错了什么吗？我尝试了很多迭代和方法。任何想法，如果Shiny可以在被动环境中调用时生成一个图？

---
title: "Will not plot"

output: html_document

runtime: shiny

---


```{r setup, include=FALSE}
 knitr::opts_chunk$set(echo = TRUE)
```

```{r, echo = FALSE}

 inputPanel(
  actionButton("Plot", "Save and Open TRI"),
  numericInput("Size", label = "Size", value = 1000, 1000, 5000, 1000)
              )
# Works:
renderPlot({
plot(runif(1000)
     )})

# Doesn't work:
eventReactive(input$Plot,
{
  renderPlot({
plot(runif(1000)
 )})
}
)

observeEvent(input$Plot,
{
  renderPlot({
    plot(runif(1000)
     )})
}
)

```