R Shiny : display text as code on several lines

Question

我想在我 Shiny 的应用程序上显示一些 R 代码。因此，我使用了 verbatimTextOutput，但找不到换行和显示代码段落的方法。

此解决方案 ( Outputting multiple lines of text with renderText() in R shiny) 仅适用于 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)