Mark dropdown with active class correctly, closes rstudio/shiny#3519

rstudio · Oct 1, 2021 · 03ed2e4 · 03ed2e4
1 parent d77f5ce
commit 03ed2e4
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/R/navs-legacy.R b/R/navs-legacy.R
@@ -584,6 +584,7 @@ buildDropdown <- function(divTag, tabset) {
 
   dropdown <- tags$li(
     class = "dropdown",
+    class = if (active) "active",
     tags$a(
       href = "#",
       class = "dropdown-toggle",