r - 使用 sapply 传递函数时缺少列名

Question

我正在尝试遍历数据框中的列以获取描述性。由于某些列会引发错误，因此我想使用tryCatch函数来忽略错误并继续。为此，我使用sapply并传递了公式。在这个过程中，我丢失了列的名称。我如何得到它们？先感谢您。

    data(mtcars)
    names(mtcars)
    library(DescTools)
    wrd<-GetNewWrd()
    sapply(mtcars, function(fnm){tryCatch(Desc(fnm, plotit=TRUE, wrd=wrd),error=function(e) NULL)})