如何在 Shiny R 中修改条件面板中的标题

Question

我在 Shiny R 中创建了一个仪表板，只有在我的服务器中定义的特定条件下才能在该仪表板上显示文本 class:

output$is_old_data <- reactive(
    if(get_most_recent_date2(dshb_qt_2, input$radio)){
      1
    }else{
      0
    }
  )
  outputOptions(output, "is_old_data", suspendWhenHidden = FALSE)

在 UI 我创建了以下内容：

h5(
                  conditionalPanel("output.is_old_data == 1", h5("Os dados apresentados infra dizem respeito ao calculo efectuado
                                                                 para a ultima data de referencia com dados disponiveis. Assim que 
                                                                 possivel a informacao sera actualizada para o mes seleccionado."))
                ),

但是，我想将文本加粗并更改颜色。有什么建议吗？

Answer 1

为粗体和 style="color: blue;"（或任何其他颜色）添加 tags$b()。

library(shiny)

ui <- fluidPage(
    h5(
        tags$b("Os dados apresentados infra dizem respeito ao calculo efectuado
                para a ultima data de referencia com dados disponiveis. Assim que 
                possivel a informacao sera actualizada para o mes seleccionado.", 
               style="color: blue;")
    )
)

server <- function(input, output, session) {
    
}

shinyApp(ui, server)

如何在 Shiny R 中修改条件面板中的标题

How to modify headings in conditionalPanel in Shiny R

r

shiny

dashboard

shinydashboard

heading