Navbar menu input

4. Define getValue is to return the currently selected tab.

getValue: function(el) {
  let activeTab = $(el).find('a').filter('nav-link active');
  return $(activeTab).attr('data-value');
}

tabler_navbar_menu_item <- function(text, tabName, 
                                    icon = NULL, 
                                    selected = FALSE) {
  
  item_cl <- paste0("nav-link", if(selected) " active")
  
  tags$li(
    class = "nav-item",
    a(
      class = item_cl,
      `data-value` = tabName,
      # Commented since not relevant
    )
  )
}