Я пытаюсь создать базовую функцию для выполнения некоторых повторяющихся задач в анализе Excel / CSV, используя пакет OpenXLSX, просто для автоматизации анализа, и я просто делаю некоторое форматирование, чтобы сделать его более «читабельным»
mergingRows<-function(dataframe,column,number,workbook,worksheet){
terms<-unique(dataframe$column)
for(k in c(1:length(terms))){
toMerge<-which(dataframe$column==terms[k])
toMerge<-toMerge+number
mergeCells(workbook,worksheet,cols=1,rows = toMerge)
}
}
Я мог бы вызвать функцию следующим образом:
mergingRows(tempCurrentPOs,Requisitioner,4+nrow(tempCurrentPOSubTotals),CurrentOpenPOBook,groupName)
Когда я действительно запускаю функцию, я склонен получать много предупреждений, подобных этим
Warning messages:
1: Unknown or uninitialised column: 'column'.
2: Unknown or uninitialised column: 'column'.
3: In min(rows) : no non-missing arguments to min; returning Inf
4: In max(rows) : no non-missing arguments to max; returning -Inf
5: Unknown or uninitialised column: 'column'.
и т. Д.
Что я здесь не так делаю?