Следующий код R предназначен для добавления одного столбца в набор данных и возврата data.frame.
xdfAirDemo <- RxXdfData(file.path(rxGetOption("sampleDataDir"), "AirlineDemoSmall.xdf"))
Я добавляю функцию печати для проверки длины вектора.
f.append <- function(lst){
lst$mod_val_test <- rep(1, length(lst[[1]]))
print(length(lst$mod_val_test))
return(lst)
}
df.Airline <- rxDataStep(inData = xdfAirDemo, transformFunc = f.append)
Когда я запускаю вышеуказанный rxDatastep , функция печати в функции «f.append» выполняется дважды и выводит два значения. Может ли кто-нибудь помочь мне понять, как работает rxDatastep?
Результат показан ниже. [1] 10
[1] 600000
Прочитано строк: 600 000, всего обработано строк: 600 000, общее время фрагмента: 0,651 секунды