R Shiny: разрешить разрыв строки в строке renderTable

Question

У меня есть следующее простое приложение Shiny ниже (глупый пример), которое отображает только таблицу, созданную renderTable:

library(shiny)

ui <- fluidPage(
   titlePanel("Issue"),
   sidebarLayout(
    sidebarPanel(

    ),
   mainPanel(
    tableOutput("example")
  )
 )
)

server <- function(input, output) {
 output$example <- renderTable({
  data.frame(
   "a" = 1,
   "b" = paste("hello","there",sep = "\n"),
   "c" = 3
  )
 },bordered = TRUE)
}

shinyApp(ui = ui, server = server)

Полученная таблица выглядит следующим образом:

Я хочу, чтобы в отображаемой таблице была новая строка между "привет" и "там".Другими словами, я хочу, чтобы «там» было в новой строке, но все еще в той же ячейке, что и «привет».Любая помощь приветствуется.Спасибо!

С уважением, ACE

Answer 1

Используйте параметр sanitize.text.function (передается в print.xtable) и используйте HTML:

server <- function(input, output) {
  output$example <- renderTable({
    data.frame(
      "a" = 1,
      "b" = paste("hello","there",sep = "<br>"),
      "c" = 3
    )
  },bordered = TRUE, sanitize.text.function=identity)
}

shinyApp(ui = ui, server = server)