R shiny seq指令错误length.out

Question

我是初学者，我在youtube教程之后为我的第一个闪亮的应用程序编写了一个简短的代码。

我收到以下错误：参数'length.out'的长度必须为1

第一个有两个R脚本：

library(shiny)
shinyServer(function(input,output){
output$distPlot<-renderPlot({ 
x<-faithful[,2]
bins<-seq(min(x),max(x),length.out=input$bins)
hist(x,breaks=bins,col="darkgray",border="white")
})
})

第二个档案：

library(shiny)
shinyUI(fluidPage(titlePanel("Shiny
Application"),sidebarLayout(sidebarPanel("bins","number of
bins",min=1,max=60,value=30),
mainPanel(plotOutput("distPlot")))))

我多次检查了修改并搜索了帮助信息，但我找不到问题所在，一些建议或帮助？

由于

Answer 1

库（有光泽） shinyUI（fluidPage（titlePanel（“Aplicacion”），sidebarLayout（sidebarPanel（sliderInput（“bins”，“bin”，                                                                                                 min = 1，max = 60，value = 30））， mainPanel中（plotOutput（ “distPlot”）））））