R S3 cat（）从函数输出

Question

我对S3函数的输出有问题。我尝试重载“ +”函数来处理两个向量，例如多项式参数。这是我的大学项目。代码如下：

'+.ply' <- function(a,b){
  size <- max(length(a$polynomial),length(b$polynomial)) 
  size
  aAdd <- a$polynomial
  bAdd <- b$polynomial

  if (length(aAdd) == size) {
   aAdd = aAdd
  } else {
    length(aAdd) <- size   
  }
  aAdd[is.na(aAdd)] <- 0

  if (length(bAdd) == size) {
    bAdd = bAdd
  } else {
    length(bAdd) <- size    
  }
  bAdd[is.na(bAdd)] <- 0

 cat("Polynomial of degree ", paste(length(aAdd+bAdd)-1), 
                  " with coefficients ", paste(aAdd+bAdd))
}

代码工作正常，但作为回报，它给了我输出

*Polynomial of degree  3  with coefficients  3 4 6 3NULL*

我需要使用cat来避免在使用打印，粘贴组合时出现[1]索引。我知道有关此问题的线程很多，但是在函数重载期间我找不到解决此问题的任何解决方案。我将感谢您的帮助。