R中“泛型函数方法”的范围

如何解决R中“泛型函数方法”的范围

在以下代码中，我打算创建一个名为“ name”的函数，该函数期望将“ first name”和“ second name”的字符串作为参数。它应返回一个名为“名称”的类的字符对象。此外，我打算为“名称”类创建一个“打印”方法。最后，我想将所有这些都封装在一个名为“ .setupNames”的闭包中。

.setupName <- function()
{
  print.names <- function(x,...)
  {
    cat(x,"\n\n")
  }
  
  name <- function(fName,sName)
  {
    my_name <- c(fName,sName)
    
    class(my_name) <- "names"
    
    my_name
  }
  
  assign("name",name,envir = .GlobalEnv)
}

但是当我从“全局环境”中调用“名称”时，它不使用“ print.names”方法在控制台中打印输出。

> .setupName()
> name("Bhupendra","Upadhyay")
[1] "Bhupendra" "Upadhyay" 
attr(,"class")
[1] "names"

任何人都可以告诉我为什么会发生这种情况，我应该怎么做才能纠正这种情况？