识别数字分类变量

Question

嘿，我的目标是确定输入闪亮应用程序的分类变量和定量变量。我决定如果数字列的级别低于用户input$n固定的最大值，则认为该数字列是分类的。我使用了以下代码

#get variable names
  output$varselectOne <- renderUI({
    for(i in c(1:ncol(data()))){
      if((class(data()[,i])=="integer") && length(unique(data()[,i]))<=input$n){data()[,i]<-factor(data()[,i])}
    }
    x=sapply(data(),class)
    x=(x=="factor")
    df=data()[x]

    #test if data is empty
    if (identical(df, '') || identical(df,data.frame())) return(NULL)

    # Variable selection:    
    selectInput("varsOne", "Variables to use:",
                names(df), names(df), multiple =TRUE)            
  })



  #get factors name
  output$factorVar <- renderUI({

    for(i in c(1:ncol(data()))){
      if((class(data()[,i])=="integer") && length(unique(data()[,i]))<=input$n){data()[,i]<-factor(data()[,i])}
    }
    x=sapply(data(),class)
    x=(x=="numeric")
    df=data()[x]
    if (identical(df, '') || identical(df,data.frame())) return(NULL)
    # Variable selection:    
    selectInput("factorVar_i", "Factor variable",
                df, df, multiple =F)            
  })

但是我得到了以下错误：长度为0的参数 该代码可在应用程序外部正常运行