R Shiny 产生空输出

Question

我在 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))
    }
  )
}

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

根据该网站，这应该会产生类似的输出：

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

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

谢谢

Answer 1

我们需要在 shinyApp

中执行 ui, 服务器

shinyApp(ui = ui, server = server)

R Shiny 产生空输出

R Shiny Produces Empty Outputs

interactive

r

data-visualization

shiny