diff --git a/R/bootstrap.R b/R/bootstrap.R index 2ebc8536e4..1783bc000c 100644 --- a/R/bootstrap.R +++ b/R/bootstrap.R @@ -1085,7 +1085,18 @@ buildDropdown <- function(divTag, tabset) { divTag$title, tags$b(class = "caret") ), - navList + navList, + .renderHook = function(x) { + if (isTRUE(getCurrentThemeVersion() >= 4)) { + tagQuery(x)$ + addClass("nav-item")$ + find(".dropdown-toggle")$ + addClass("nav-link")$ + allTags() + } else { + x + } + } ) list( diff --git a/tests/testthat/_snaps/tabPanel.md b/tests/testthat/_snaps/tabPanel.md index e83e0d4391..3f676a5595 100644 --- a/tests/testthat/_snaps/tabPanel.md +++ b/tests/testthat/_snaps/tabPanel.md @@ -86,8 +86,8 @@ B -