«Ошибка в if (more || nchar (output)> 80) {: отсутствует значение там, где требуется TRUE / FALSE» При попытке просмотреть список

Question

У меня была проблема, когда я пытался просмотреть список, сгенерированный с помощью функции, которая вычисляет пересечение / разность двух наборов по 20000 наблюдений в каждом.Рассматриваемая функция:

jeepers.creepers<-function(dfx,dfy,by.x,by.y){
  SetX<-dfx[[by.x]]
  SetY<-dfy[[by.y]]
  Union.X.Y<-intersect(SetX,SetY)
  Difference.in.X<-setdiff(SetX,Union.X.Y)
  Difference.in.Y<-setdiff(SetY,Union.X.Y)
  result<-list(Union.X.Y,Difference.in.X,Difference.in.Y)
  names(result)<-c("Union of SetX and SetY",
               "Unique in SetX",
               "Unique in SetY")

  return(result)
}

Это дало мне эту ошибку:

Error in if (more || nchar(output) > 80) { : 
  missing value where TRUE/FALSE needed

Тем не менее я мог просматривать элементы по отдельности с помощью

View(list$element)

Когда я использую сводкув списке это дает мне:

                       Length Class  Mode   
Union of SetX and SetY  8584  -none- numeric
Unique in SetX         15334  -none- numeric
Unique in SetY             0  -none- numeric

Кто-нибудь знает, что происходит?