Блестящее приложение с функцией 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)