小编seb*_*opf的帖子

有没有办法在闪亮的验证消息中呈现 HTML？我尝试了使用HTML包装器、tags$...函数以及单独htmlOutput的验证消息的不同方法，但无法使它们中的任何一个工作。这是一个显示此问题的简单示例应用程序 -select验证消息中应该是粗体，但 HTML 标签被转义（我知道是人为的示例，但希望传达这个想法，我主要想用它来包含 fa 图标消息）：

runApp(
  list(
    ui = fluidPage(

      titlePanel("Validation App"),

      sidebarLayout(
        sidebarPanel(
          selectInput("data", label = "Data set", choices = c("", "mtcars"))
        ),

        mainPanel(tableOutput("table"))
      )
    ),

    server = function(input, output) {

      data <- reactive({ 

        # validate test
        validate(
          need(input$data != "", HTML("Please <strong>select</strong> a data set"))
        )

        get(input$data, 'package:datasets') 
      })

      output$table <- renderTable(head(data()))

    }

  )
)