获取错误：比较（3）仅适用于原子和列表类型

Question

我尝试制作一个简单的闪亮应用并使用下面的代码

library(shiny)
library(MASS)
ui<-fluidPage(
  sidebarPanel(sidebarLayout(
    sliderInput(inputId = "num",label = "choose number of items to   display",min=1,max=25,value=5))),
  mainPanel(
    tableOutput("head"))


)
server<-function(input,output){

  inp<-reactive({switch(input$num)})

  output$head<-renderTable({head(painters,inp)})
}

shinyApp(ui=ui, server=server)

当我执行它时，我收到以下错误

ERROR:comparison (3) is possible only for atomic and list types

此错误的原因是什么？