diff --git a/R/mod_chartsNav.R b/R/mod_chartsNav.R index d4712350..6a5762bb 100644 --- a/R/mod_chartsNav.R +++ b/R/mod_chartsNav.R @@ -11,7 +11,7 @@ chartsNav <- function(chart,ns){ inputId = "safetyGraphicsApp", menuName = "Charts", tab = tabPanel( - title = chart$label, + title = makeChartSummary(chart, showLinks=FALSE, class="chart-nav"), value = chart$name, chartsTabUI( id=ns(chart$name), diff --git a/inst/www/index.css b/inst/www/index.css index 496adf58..9cb7b4f1 100644 --- a/inst/www/index.css +++ b/inst/www/index.css @@ -56,6 +56,7 @@ table.metatable.dataTable tr > td:last-of-type, table.metatable.trdataTable tr > margin-bottom: 1em; } +/* Formatting for charts metadata on chart page headers */ .chart-header{ background: #e7e7e7; @@ -85,6 +86,7 @@ table.metatable.dataTable tr > td:last-of-type, table.metatable.trdataTable tr > padding-right:0.5em; } +/* Formatting for charts items in init item sorter */ .chart-sortable{ font-size:0.8em; } @@ -102,3 +104,21 @@ table.metatable.dataTable tr > td:last-of-type, table.metatable.trdataTable tr > color:#999; } +/* Formatting for charts items in nav dropdown */ +.chart-nav *{ + display:inline-block; +} + +.chart-nav div:not(:first-child){ + font-size:0.8em; + color: #999; +} + +.chart-nav div:last-child::before{ + content: "/"; +} + +.chart-nav small{ + display:none; +} + diff --git a/tests/testthat/module_examples/filterTab/app.R b/tests/testthat/module_examples/filterTab/app.R index 642d3ac2..4bba9255 100644 --- a/tests/testthat/module_examples/filterTab/app.R +++ b/tests/testthat/module_examples/filterTab/app.R @@ -201,5 +201,4 @@ server <- function(input,output,session){ } #options(shiny.reactlog = TRUE) -devtools::load_all() shinyApp(ui, server)