このチャレンジでは、次を使用して Shiny アプリケーションの外観を向上させることを目的としています。タブセットパネル。選択したパネルには黒の背景に白のテキストが表示され、非アクティブなタブでは白の背景に黒のテキストが表示される UI を作成することを目指しています。
以下は使用されるコードです。ソリューションを説明するには:
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)
このソリューションは、アクティブなタブが黒の背景と白のテキストで強調表示される、視覚的に魅力的なアプリケーションを提供します。非アクティブなタブは、白い背景と黒いテキストで簡単に区別できます。
Shiny CSS の変更は時間の経過とともに発生する傾向があるため、それに応じてコードを適応させることが重要です。ただし、このソリューションで概説されている中心原則は、引き続きカスタマイズ プロセスの指針となるはずです。
以上がShiny の tabPanel でタブの色をカスタマイズするにはどうすればよいですか?の詳細内容です。詳細については、PHP 中国語 Web サイトの他の関連記事を参照してください。