如何使用 R2wd 打印值名称

Question

我有一个频率表：

freq.tab <- as.table(rbind(c(1,2,3),c(4,5,6)))

我已经分配了一个函数，可以使用 R2wd 将其发送到 Word，

fun1 <- function(table){wdTable(table)}
fun1(freq.tab)

但我想添加表名称 freq.tab 作为标题。

有什么方法可以让 R 打印表（或任何值）名称。

基本上，我在 Word 中的输出应如下所示：

频率表
1 4
2 5
3 6

显然，我可以使用 wdTitle("freq.table") 来做到这一点，但我需要一些适合该函数的东西，并且可以在不诉诸引用文本的情况下调用它。

Answer 1

您可以使用 as.character(substitute(whatever_you_wanted)) 获取提供的参数名称

fun1 <- function(table){
    wdTitle(as.character(substitute(table)))    
    wdTable(table)
}