在R中查找模式的自定义功能不起作用

Question

我想在R中定义一个函数来找出向量的模式。我做了一个简单的如下所示：

modeFinder <- function(par) {
  modeTable <- par %>% table() %>% sort(decreasing = TRUE) %>% data.frame()
  modeVal <- modeTable$Var1[1] %>% as.character()
  return(modeVal)
}

但是，当我使用此函数时，它总是返回空值。我实际上想将它用于我的总结功能，但它不起作用。我尝试通过隔离下面的步骤进行诊断，这样就完全正常了！

# let's assume a vector "Vic" with expected output "m"
Vic <- c(rep("m", 3), rep("g", 2))
temp <- Vic %>% table() %>% sort(decreasing = TRUE) %>% data.frame()
temp2 <- temp$Var1[1] %>% as.character()

我无法理解为什么自定义函数在相同的代码在函数外部工作时不起作用。

我真的很感激任何解决方案。谢谢！

编辑：我认为我的问题并不清楚。我只是想知道自定义函数中的问题是什么。我不是在寻找任何内置函数或替代它。