dimnames（s $ v）＆lt; - list（colnames（x），paste0（＆＃34; PC＆＃34;，j））出错：dimnames 2的错误长度不等于数组范围

Question

当我运行此代码行

时

library(rENA)
category.data <- readr::read_csv("/home/Exemplo.csv")
category.set  <- create.ena.set(category.data)

它会生成此错误：

  

dimnames（s $ v）＆lt; - list（colnames（x），paste0（＆＃34; PC＆＃34;，j））中的错误：   dimnames 2的错误长度不等于数组范围

这是方法：

create.ena.set <- function(data) {
    accum <- ena.accumulate.data(
                           units        = data[,c("UserId","DiscussionID"), drop=F],
                           conversation = data[,c("UserId","DiscussionID"), drop=F],
                           metadata     = NULL,
                           codes        = data[, colnames(data)[-c(1:8)]],
                           weight.by = "binary")
    ena.make.set(enadata=accum)
}

我不知道如何解决它。