如何使用 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 中的输出应该是这样的：

freq.table
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)
}