R Shiny 产生空输出

Question

I am following the examples from this website here on R shiny: https://mastering-shiny.org/action-graphics.html

I copied and pasted the following code from the website:

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

But this produces no output at all.

According to the website, this should produce a similar output:

But the code I ran produces no output at all.

Can someone please show me what I am doing wrong?

Thanks

Answer 1

We need to execute the ui, server in shinyApp

shinyApp(ui = ui, server = server)