Попытка создать функцию, в которой вы объединяете строки в столбце в возможной электронной таблице Excel. - PullRequest
0 голосов
/ 20 сентября 2019

Я пытаюсь создать базовую функцию для выполнения некоторых повторяющихся задач в анализе 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'.

и т. Д.

Что я здесь не так делаю?

...