如何将自定义函数应用于数据框的每一列

我试图摆脱tidyverse和dplyr方法的困扰，并希望将以下函数应用于数据框/数据表的每一列：

library(multimode)
funx <- function(x) {multimode::modetest(x, method = 'SI') }

然后尝试使用诸如summary_all之类的内容开始，但是我立即收到错误消息：

错误：列的mpg长度必须为1（汇总值），而不是8

library(dplyr)

mtcars %>%
     summarise_all(funx)

我希望最终得到一个新的数据框，该数据框显示在第1列中测试的colname和在第modetest2列中的p值

从昨天（23-05-2019）更新软件包后，我的解决方案无法正常工作，下面的代码现在显示为'。' 点而不是列名提交了一个帖子到github页面来询问这种改变的原因：github

library(multimode)
funx <- function(x) {
    print(substitute(x))
    multires <- multimode::modetest(x, method = 'SI') 
    p <- multires$p.value}

mtcars %>% 
    select(1:2) %>%
    summarise_all(list(~ funx(.)))

具有讽刺意味的更新，在获得有关github帖子的反馈后，使用新版本，我们现在可以执行以下操作：

   mtcars %>%
      select(1:2) %>%
        summarise_all(funx)

如您所见，它与我发布问题时开始的语法完全相同。因此，我想说dplyr团队所做的出色工作使语法更加“自然”。