Necesito etiquetar en blanco una compilación brillante del tablero dentro del marco del paquete shinydashboard. Para esto, necesito cambiar dinámicamente el siguiente código de etiqueta en el cuerpo de mi tablero:
tags$head(tags$style(HTML(' /* logo */ .skin-blue .main-header .logo { background-color: #545454; }'))) js <-"Shiny.addCustomMessageHandler('change_logo', function(logo_W) { /* logo */ .skin-blue .main-header .logo { background-color: logo_W; } });" ui <- function() { dashboardPage(dashboardHeader(), dashboardSidebar(), dashboardBody( tags$head(tags$style(HTML(js))), ), skin = "blue") } server <- function(input, output, session) { start <- reactiveVal(1) observeEvent(start() == 1 , { session$sendCustomMessage("change_logo", "#545454") }) } shinyApp(ui, server)
Traté de resolver el problema de varias maneras. Una opción era poner todo en una salida de interfaz de usuario, pero esto
no funciona con shinydashboard, el css no registra y desordena el proceso de iniciación.
Traté de abrir la aplicación brillante dentro de otra aplicación para hacer una llamada en la aplicación de inicio al servidor para
el código de colores, lástima que tampoco funciona.
Mi plan es hacerlo con Java entonces y obtuve este código hasta ahora para una parte del logotipo del estilo
etiqueta. Tampoco funciona, pero vi un ejemplo de esto donde alguien cambió el color de la piel con
código similar, por lo que debería ser posible.
La ayuda es bastante apreciada