From 03ed2e452fb06ea62235b6e98aad0d2b52a8305b Mon Sep 17 00:00:00 2001
From: Carson <cpsievert1@gmail.com>
Date: Fri, 1 Oct 2021 14:40:21 -0500
Subject: [PATCH] Mark dropdown with active class correctly, closes
 https://github.com/rstudio/shiny/issues/3519

---
 R/navs-legacy.R | 1 +
 1 file changed, 1 insertion(+)

diff --git a/R/navs-legacy.R b/R/navs-legacy.R
index a4239e663..381bb45ef 100644
--- 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",