Dans ce défi, nous visons à améliorer l'apparence d'une application Shiny en utilisant tabsetPanels. Notre objectif est de créer une interface utilisateur dans laquelle le panneau sélectionné présente un texte blanc sur fond noir, tandis que les onglets inactifs conservent un fond blanc avec du texte noir.
Vous trouverez ci-dessous le code utilisé pour illustrer la solution :
library(shiny) ui <- shinyUI( fluidPage( tags$style(".nav-tabs { background-color: #006747; } .nav-tabs-custom .nav-tabs li.active:hover a, .nav-tabs-custom .nav-tabs li.active a { background-color: transparent; border-color: transparent; } .nav-tabs-custom .nav-tabs li.active { border-top-color: #FFF; }"), tabsetPanel( tabPanel( title = "Hello", textInput(inputId = "text", label = "Input") ), tabPanel( title = "World" ) ) ) ) server <- shinyServer(function(input, output, session){ }) shinyApp(ui=ui, server=server)
La solution fournit une application visuellement attrayante où l'onglet actif est mis en évidence avec un fond noir et du texte blanc. Les onglets inactifs restent facilement reconnaissables avec leur fond blanc et leur texte noir.
Comme les modifications CSS Shiny sont susceptibles de se produire au fil du temps, il est important d'adapter le code en conséquence. Cependant, les principes fondamentaux décrits dans cette solution devraient continuer à guider le processus de personnalisation.
Ce qui précède est le contenu détaillé de. pour plus d'informations, suivez d'autres articles connexes sur le site Web de PHP en chinois!