我想在我闪亮的应用程序上显示一些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)发布于 2019-07-02 06:52:35
我以前曾使用过cat()来实现此目的:
library(shiny)
ui <- fluidPage(
mainPanel(verbatimTextOutput("vtout"))
)
server <- function(input, output) {
output$vtout <- renderPrint({
cat("just", "some", "code", sep = "\n")
})
}
shinyApp(ui, server)

https://stackoverflow.com/questions/56842812
复制相似问题