#r
Вопрос:
может ли кто — нибудь помочь мне с тем, как экспортировать результат comparedf() из пакета arsenal в файл Excel?
Вот мой сценарий:
diff <- diffs(comparedf(mtcars[1:10, ], mtcars[2:11,]))
openxlsx::write.xlsx(diff, "diff.xlsx")
Сообщение об ошибке-Ошибка в файле is.nan(tmp) : метод по умолчанию не реализован для типа «список»
Ответ №1:
diffs функция возвращает определенные столбцы класса 'AsIs' , который относится к типу list.
unlist эти столбцы в вектор, прежде чем записывать их в Excel.
diff[] <- lapply(diff, function(x) if(class(x) == 'AsIs') unlist(x) else x)
openxlsx::write.xlsx(diff, "diff.xlsx")