如何在R中使用gWidgets呈现打印？

我试图使用gWidgets显示结果摘要，但是我找不到一个可以轻松完成这项工作的小部件

比如说,

ctl <- c(4.17,5.58,5.18,6.11,4.50,4.61,5.17,4.53,5.33,5.14)
trt <- c(4.81,4.17,4.41,3.59,5.87,3.83,6.03,4.89,4.32,4.69)
group <- gl(2,10,20, labels=c("Ctl","Trt"))
weight <- c(ctl, trt)
lm.D9 <- lm(weight ~ group)

这可以通过使用

renderPrint

和

逐字输出

轻松完成。我希望在

gWidgets

中也有一些东西

---

一个相关的问题，我可以使用

capture.output

将摘要写入文本文件。如果有一个小部件可以打开文本文件并在用户界面中显示内容，这将非常有用。

您可以使用

glabel

例如：

win <- gwindow("Summary regression", visible=TRUE)
group <- ggroup(horizontal = FALSE, container=win)
obj <- glabel(as.character(summary(lm.D9)), 
         container=group, font.attr=list(style="bold"))

---

win您可以使用
glabel
例如：

win <- gwindow("Summary regression", visible=TRUE)
group <- ggroup(horizontal = FALSE, container=win)
obj <- glabel(as.character(summary(lm.D9)), 
         container=group, font.attr=list(style="bold"))

win使用
gtext
和
capture.output
：

out <- paste(capture.output(summary(lm.D9)), collapse="\n")
w <- gwindow()
txt <- gtext(out, cont=w, font.attr=c(family="monospace"))

out使用
gtext
和
capture.output
：

out <- paste(capture.output(summary(lm.D9)), collapse="\n")
w <- gwindow()
txt <- gtext(out, cont=w, font.attr=c(family="monospace"))

out我也考虑过这个问题，使用
gmessage
。但为了使其美观，我需要以一种艰难的方式复制
print.summary.***
函数。我只是觉得应该有一个更好更干净的方法。我也考虑过这一点，使用
gmessage
。但为了使其美观，我需要以一种艰难的方式复制
print.summary.***
函数。我只是觉得应该有一个更好更干净的方法。对于像摘要这样的东西，在gtext中设置
wrap=FALSE也可能有意义。我离解决方案还有一步，但我就是想不出来！非常感谢你的帮助@Dason关于使用
wrap=FALSE
的建议也非常有用。对于类似摘要的东西，在gtext中设置
wrap=FALSE
也可能有意义。我离解决方案还有一步之遥，但我就是想不出来！非常感谢你的帮助@Dason关于使用
wrap=FALSE
的建议也非常有用。