我在 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."))
),
但是，我想讓文本加粗并更改顏色。對此有何建議？
uj5u.com熱心網友回復：
添加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)
轉載請註明出處，本文鏈接：https://www.uj5u.com/net/324571.html
下一篇：如何顯示計算出的時間差的資料框？