R闪亮：将文本显示为多行代码答案

【问题标题】：R shiny : display text as code on several linesR闪亮：将文本显示为多行代码
【发布时间】：2019-11-12 12:45:49
【问题描述】：

我想在我闪亮的应用程序上显示一些 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)

【问题讨论】：

标签： r shiny

【解决方案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)

【讨论】：

谢谢，之前没想过用renderPrint