R блестящий: отображать текст в виде кода в несколько строк

Question

Я хотел бы отобразить код R в моем блестящем приложении. Поэтому я использовал verbatimTextOutput, но я не могу найти способ разбивать строки и отображать абзацы кода.

Это решение ( Вывод нескольких строк текста с помощью renderText () в R блестящий ) работает только с функцией HTML, и нет никакого способа (насколько мне известно) смешивать verbatimTextOutput и htmlOutput.

Я могу отобразить код с помощью tags$code, но это не тот внешний вид, который мне нужен (я бы предпочел серый фон).

Вот воспроизводимый пример:

library(shiny)

ui <- fluidPage(
    mainPanel(htmlOutput("base", placeholder = FALSE)
              )
)

server <- function(input, output) {

  output$base <- renderUI({
    tags$code(HTML(paste("just", "some", "code", sep = '<br/>')))
  })

}

shinyApp(ui = ui, server = server)

Answer 1

Я ранее использовал cat() для этой цели:

library(shiny)

ui <- fluidPage(
  mainPanel(verbatimTextOutput("vtout"))
)

server <- function(input, output) {
  output$vtout <- renderPrint({
    cat("just", "some", "code", sep = "\n")
  })
}

shinyApp(ui, server)