在 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)

給出相同的結果。