使用cat将换行符插入闪亮的文本输出中

Question

我正在尝试使用cat使用\n和shiny在一些文本输出中插入一些换行符。

以下是我的ui.R和server.R的相关部分。

让我们说我想得到一个t检验的结果，并且有一个单独的行，用于＆＃39;，＆＃39; df＆＃39;和＆＃39; p值＆＃39;

我正在使用shinydashboard布局。

样本数据

Group_A <- 1:13
Group_B <- 8:19

UI

box(title = "T-test results:", status = "primary",  textOutput("text3"), width=3)

服务器

output$text3 <- renderPrint({

  obj <-  t.test(Group_A, Group_B)

  cat("t = ", round(obj[[3]],3), "\n, df = ", round(obj[[2]],3), "\n, p-value = ", round(obj[[3]],5)) 

})

此输出显示在下图中：

如您所见，输出在屏幕上从左到右分隔，以逗号分隔。因为我想添加一些结果，我希望它们在屏幕上自上而下，每个值后都有一个换行符。

有人知道如何在shiny中执行此操作吗？

Answer 1

以下是使用renderUI和htmlOutput

的解决方案

library(shiny)
Group_A <- 1:13
Group_B <- 8:19

runApp(
  list(
    ui = fluidPage(
      htmlOutput("text3")
      ),
    server = function(input, output){
      output$text3 <- renderUI({

        obj <-  t.test(Group_A, Group_B)
        HTML(
          paste0("t = ", round(obj[[3]],3), '<br/>', 
              "df = ", round(obj[[2]],3), '<br/>',
              "p-value = ", round(obj[[3]],5))
        )
      })
    }))

Answer 2

使用段落标记内部没有任何内容，例如AffineTransform see here