R Shiny：将文本显示为多行代码

Question

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

此解决方案（在 R 中使用 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)