R：从paste0内容

Question

我正在使用cat和paste0手动创建“自由文本”表格，如下所示：

tab < - cat(paste0("Stage","\t","Number,"\n",
                   "A","\t",nrow(df[df$stage == "A",]),"\n",
                   "B","\t",nrow(df[df$stage == "B",]),"\n"
            ))

即

Stage    Number
A        54
B        85

我希望能够创建一个发布就绪表（即看起来不错，可能是由r markdown生成的。

xtable()函数可以执行此操作，但只接受数据帧。所以我的问题是如何获得一些自由文本，使用“\ t”和行“\ n”分隔到数据框中的列分隔？

我试过了：

data.frame(do.call(rbind,strsplit(as.character(tab),'\t'))) 

但是得到“零列和零行的数据帧”。我认为这与我没有宣称“\”成为新行的事实有关。

顺便说一下，如果这种方式看似啰嗦并且有更简单的方式，我很乐意接受建议。