我正在尝试在同一代码块中打印纯文本表和xtable。它必须在一个代码块中的原因是表是在循环中运行的，我需要将相关的表保存在一起。这是代码：
for(the.let in extra.out) {
tmp <- readLines(paste("~/surveys/pathways-2017/tmeas/", params$themeas, "/table_32_2", the.let, sep=''))
tmp <- gsub("^L", "", tmp, fixed=TRUE)
cat(tmp, sep="\n")
print(xtable(tab.13, caption=paste("Item Statistics in Measure Order for Run 2", the.let, sep='')),
floating.environment="sidewaystable", comment=FALSE, include.rownames=FALSE)
}
问题是xtable需要results="asis"但是如果我将它用于使用cat()打印的表格，则格式化将全部搞砸。我有什么方法可以仅为results="asis"块的xtable打开function changeEmail() {
var changeEmailDTO = { "email":$('#email').val()};
$.ajax({
type: 'PUT',
url: '/changeEmail',
contentType: "application/json",
dataType: "json",
data: JSON.stringify(changeEmailDTO),
success: function (result) {
console.log(result);
}
});
}
吗？
TIA