为什么我的shinyApp没有绘制任何东西？

Question

我几乎所有的东西都与课程中的相同，但它不起作用。我需要特殊设置

##
# Shiny nr 1
#

library(shiny)

ui <- fluidPage("Hello World!"

                ,sliderInput(inputId = "x"
                            ,label = "wybierz numer"
                            ,value = 25, min = 0, max = 100
                            )
                ,plotOutput("rys")

                )

server <- function(input, output) {
  output$rys <- renderPlot({ hist(rnorm(100)) })                                                           })

}

shinyApp(ui = ui, server = server)