R Shiny中的多行文本输出

Question

我有一个闪亮的应用程序，允许用户指定一堆用于构建统计模型的选项，最终结果应该是一系列回归系数的输出，如简单{的截图所示{ {1}}到控制台：

但是，当我尝试将该确切消息呈现给我的Shiny UI时，会忽略换行符，导致混乱的字符混乱，如下所示：

  

unmarkedFrame对象16个站点每个站点的最大观察数：   23每个站点的平均观测数：4.38主要调查数   期间：23次要调查期数：1个至少有的网站   一次检测：16次观察表：0 1 22 48 298   站点级协变量：站点高度最小值。 ：1.00分钟：148.2 1   Qu。：4.75 1st Qu.:1085.0中位数：8.50中位数：1318.2平均值：8.50平均值   ：1604.8 3rd Qu。：12.25 3rd Qu.:2264.2 Max。 ：最高16.00 ：2958.9 NA：4   年度网站级协变量：2016年：80 2013：64 2014：48 2015：48   2017：48 2012：32（其他）：48年2016：80 2013：64 2014：48 2015：48   2017：48 2012：32（其他）：48

所以问题是：

如何在保持控制台输出的可读格式的同时将文本输出到闪亮的网页？

我发现了以下相关问题，但似乎没有一个答案可以解决我的问题......

how to insert new line in R shiny string

Answer 1

我明白了：我需要在collapse中使用paste参数，以便在字符向量中的每个项目之间插入<br> {{ 1}}。

下一个问题是空格将被忽略（因为HTML），我通过将输出夹在capture.output(print(summary(m0)))标记之间来修复，以便逐字地保留空格。 <pre>中的解决方案如下所示：

server.R

当output$modelParameters <- renderUI( HTML( paste( c("<pre>", capture.output(print(summary(m0))), "</pre>"), collapse = "<br>" ) ) ) 通过ui.R调用时，它会按预期输出在灰色框中正确格式化的文本。