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

Question

我正在尝试运行，使用带有光泽的直方图的滑块。但是，当我运行代码时，浏览器中没有任何显示。这是代码：

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)

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

Answer 1

您拼写错误的标签。以下代码对我有用。

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)