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

Question

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

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

假设我想获得 t 检验的结果，并为 't'、'df' 和 'p-value'

设置单独的一行

我正在使用 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

使用像 tags$p("a"), 这样的没有任何内容的段落标签 see here

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

Inserting line breaks into text output in shiny using cat

r

shiny

示例数据

ui

服务器