从 R 函数获取 kable 输出

Question

我有一个 Rmd 脚本，我想在其中显示数据集不同属性的表。我写了这个（这里简称）函数来节省一些工作：

attr_table <- function(name, attr) {
   table_attr <- table(attr)
   
   kable(table_attr,
         caption = name,
         col.names = "Frequency")
   barplot(table_attr, horiz = TRUE)
}

当我现在称它为 attr_table("Name", vector) 编织文件时，条形图在那里，但没有表格。

所以问题是：我可以在函数内使用 kable() 还是每次都必须使用它自己？