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

Posted 2023-03-22

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

【英文标题】：How to modify headings in conditionalPanel in Shiny R

【发布时间】：2021-12-06 04:50:03

【问题描述】：

我在 Shiny R 中创建了一个仪表板，其上的文本仅应在我的服务器类中定义的某些条件下显示：

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."))
                ),

但是，我想将文本加粗并更改颜色。对此有何建议？

【参考方案1】：

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

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)

【讨论】：

为我工作，谢谢！

很好，请接受这个答案，让其他人知道它已经回答。