R shiny seq инструкция грешка length.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")))))

Проверих инструкциите няколко пъти и търся помощна информация, но не мога да намеря какъв е проблемът, някакъв съвет или помощ?

Благодаря