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

Question

我想在我闪亮的应用程序上显示一些R代码。因此，我使用了=IMPORTRANGE("KEYA","SHEET1!A2:A") ，但是找不到断行和显示代码段的方法。

此解决方案（Outputting multiple lines of text with renderText() in R shiny）仅与verbatimTextOutput函数一起使用，并且据我所知，没有办法混合使用HTML和verbatimTextOutput。

我可以使用htmlOutput显示代码，但这不是我想要的外观（我希望使用灰色背景）。

这是一个可重复的示例：

tags$code

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)