R 为什么我的输入和输出元素没有显示在UI中？

我正在试着跑步，一个带有直方图的滑块使用闪亮的。但是，当我运行代码时，浏览器中没有显示任何内容。代码如下：

library(shiny)

ui <- fluidPage( 
  sliderInput(inputId = "num",
              labeel="Choose a number",
              value=25,
              min=1, max=25)#,
 # plotOutput(outputId = "hist")

)

server <- function(input, output, session) {

#  output$hist<-renderPlot({ hist(rnorm(1000))  })
}

shinyApp(ui, server)

---

我试图通过删除服务器输出来仅显示滑块，但它也不起作用。

您拼错了标签。下面的代码适合我

library(shiny)

ui <- fluidPage( 
  sliderInput(inputId = "num",
              label="Choose a number",
              value=25,
              min=1, max=25)
)

server <- function(input, output, session) {}

shinyApp(ui, server)

不贴标签