警告：数组中的错误：“数据”必须是向量类型，在Kmeans聚类中为“ NULL”

Question

我将此代码用于闪亮的代码，但是我的代码存在一些错误。我正在使用渲染UI和反应式来自动显示显示内容：

  

警告：数组中的错误：“数据”必须是向量类型，为“ NULL”

 server <- function(input, output) {


  filedata <- reactive({
    req(input$file1)
    # infile <- input$file1
    # if (is.null(infile)) {
    #   # User has not uploaded a file yet
    #   return(NULL)
    # }
    read.csv(input$file1$datapath,
             header = input$header,
             sep = input$sep,
             quote = input$quote)
  })

  selectedData <- reactive({
    req(input$file1)
    infile <- input$file1
    if (is.null(infile)) {
      # User has not uploaded a file yet
      return(NULL)
    }
    data <- read.csv(input$file1$datapath,
                     header = input$header,
                     sep = input$sep,
                     quote = input$quote)

    filedata()[, c(input$var1, input$var2)]

  })

  clusters <- reactive({
    kmeans(selectedData(), input$clusters)

  })