我想在我闪亮的应用程序上显示一些 R 代码。因此，我用了verbatimTextOutput但我找不到换行和显示代码段落的方法。
这个解决方案（在 R Shiny 中使用 renderText() 输出多行文本 https://stackoverflow.com/questions/23233497/outputting-multiple-lines-of-text-with-rendertext-in-r-shiny）仅适用于HTML功能并且（据我所知）没有办法混合verbatimTextOutput and 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)
我以前用过cat()以此目的：
library(shiny)
ui <- fluidPage(
mainPanel(verbatimTextOutput("vtout"))
)
server <- function(input, output) {
output$vtout <- renderPrint({
cat("just", "some", "code", sep = "\n")
})
}
shinyApp(ui, server)
本文内容由网友自发贡献，版权归原作者所有，本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容，请联系:hwhale#tublm.com(使用前将#替换为@)
