R блестящая длина ошибки инструкции seq.out

Я новичок, и я написал короткий код для своего первого блестящего приложения после учебника на 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")))))

Я несколько раз проверял инструкцию и искал в справочной информации, но не могу найти, в чем проблема, совет или помощь?

Спасибо