R Shiny 产生空输出

R Shiny Produces Empty Outputs

我在 R shiny 上关注此网站上的示例:https://mastering-shiny.org/action-graphics.html

我从网站上复制并粘贴了以下代码:

library(shiny)
ui <- fluidPage(
  sliderInput("height", "height", min = 100, max = 500, value = 250),
  sliderInput("width", "width", min = 100, max = 500, value = 250),
  plotOutput("plot", width = 250, height = 250)
)
server <- function(input, output, session) {
  output$plot <- renderPlot(
    width = function() input$width,
    height = function() input$height,
    res = 96,
    {
      plot(rnorm(20), rnorm(20))
    }
  )
}

但这根本不会产生任何输出。

根据该网站,这应该会产生类似的输出:

但是我 运行 的代码根本没有输出。

有人可以告诉我我做错了什么吗?

谢谢

我们需要在 shinyApp

中执行 ui, 服务器
shinyApp(ui = ui, server = server)