Shiny没有给我一个正确的R直方图

Question

我想使用rnorm((生成一个直方图，然后对其进行动画处理。我使用了以下代码：

library(shiny)
shinyUI(pageWithSidebar(

headerPanel("sample"),
sidebarPanel(
sliderInput("obs", 
"Number of observations:", 
min = 1,
max = 2000, 
value = 500)
),

mainPanel(
plotOutput("distPlot")
)
))
shinyServer(function(input, output) {

output$distPlot <- renderPlot({
hist(rnorm(input$obs))
})
})
shinyApp(ui, server)

我得到以下错误

dnorm中的错误：数学函数的非数字参数[无可用堆栈跟踪]

我试图将其设为数字，但没有正确绘制。

Answer 1

这就像@Croote说的：它工作得很好，但您在代码中没有分配ui和server。因此：

library(shiny)
ui <- shinyUI(pageWithSidebar(

headerPanel("sample"),

sidebarPanel(
sliderInput("obs", 
"Number of observations:", 
min = 1,
max = 2000, 
value = 500)
),

mainPanel(
plotOutput("distPlot")
)
))
server <- shinyServer(function(input, output) {


output$distPlot <- renderPlot({

hist(rnorm(input$obs))

})
})
shinyApp(ui, server)