ошибка в функции colnames: атрибут должен иметь ту же длину, что и вектор

Question

У меня были проблемы с определением имен столбцов в r блестящий. Тот же синтаксис работал в других частях моего кода, но, похоже, возникают проблемы в этой части моего кода.

readFile1 <- reactive({
  rbindlist(lapply(input$file1$datapath, function (x) XLConnect::readWorksheetFromFile(x, sheet = 1, startRow = 8, endRow = -5, startCol = 0, endCol = 26, header = TRUE)), use.names = TRUE, fill = TRUE)
})

renameReadFile1 <- reactive({
  readfile <- data.frame(readFile1())
  if (input$samplesheetType == "old"){
    colnames(readfile) <- c("Well", "Sample Name","Target Name","Task", "Reporter", "Quencher","RQ",    "RQ Min",   "RQ Max",   "CT",   "CT Mean",  "CT SD",    "dCT",  "dCT Mean", "dCT SE",   "HK Control dCT Mean",  "HK Control dCT SE",    "ddCT", "Automatic CT Threshold",   "CT Threshold", "Automatic Baseline",   "Baseline Start",   "Baseline End", "Efficiency",   "Comments", "HIGHSD")
  } else if (input$samplesheetType == "new"){
    colnames(readfile) <- c("Well", "Sample Name","Target Name","Task", "Reporter", "Quencher", "CT",   "CT Mean",  "CT SD",    "Quantity", "Quantity Mean", "Automatic", "CT Threshold")
    }
  readfile
})

Я получаю ошибку:

Warning: Error in <-: 'names' attribute [13] must be the same length as the vector [0]

Однако, таблица данных рендеринга в моем приложении показывает переименованные столбцы, хотя она не регистрируется вниз по течению, где я использую переименованные имена столбцов в своем анализе. Любая помощь будет оценена!