带有renderText功能的闪亮应用程序需要添加新行

Question

我有一个Shiny应用程序，我使用了renderText()调用。我有一些粘贴的文本，但是想在它们之间添加新的一行，但是它忽略了粘贴/打印中的\n电话。

我尝试过：

print(paste("Line 1\n", "Line 2\n"))

但是，打印结果如下：

Line 1 Line 2

我也尝试过：

print(paste("Line 1", "Line 2", sep = "\n"))

与上面的行打印相同（全部一行）。这两个呼叫都包装在output$t <- renderText({ [code here] })

中

有想法吗？

Answer 1

尝试一下：

library(shiny)

ui <- fluidPage(
  verbatimTextOutput("value"),
  htmlOutput("value2")
)

server <- function( session,input, output) {

  output$value <- renderText({
    paste("Line 1", "Line 2", sep="\n")
  })

  output$value2 <- renderUI({
    HTML(paste("Line 1", "Line 2",sep ="<br/>"))
  })
}

shinyApp(ui, server)