在 renderUI 中解析 HTML

Question

有没有办法在 renderUI 中解析 HTML。 我尝试了下面的代码，但它是作为字符而不是 HTML。 基本上，“下一行”应该显示在下一行？

library(shiny)

ui <- fluidPage(
  uiOutput("text")
)

server <- function(input, output, session) {
  output$text <- renderUI({
    paste0("Filtered value are for ", as.character(br()),"Next line")
})
}

shinyApp(ui, server)

Answer 1

我不确定你为什么使用renderUI而不是renderText ...

library(shiny)

ui <- fluidPage(
  uiOutput("text")
)

server <- function(input, output, session) {
  output$text <- renderText({
    paste0("Filtered value are for ", br(),"Next line")
  })
}

shinyApp(ui, server)

给

如果您确实需要使用renderUI ，

library(shiny)

ui <- fluidPage(
  uiOutput("text")
)

server <- function(input, output, session) {
  output$text <- renderUI({
    tagList("Filtered value are for ", br(),"Next line")
  })
}

shinyApp(ui, server)

给出相同的结果。