r - 为什么我的输入和输出元素没有显示在 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)

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

标签： rshiny

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)