Include "title" in function tablerDashNav

[alexquant1993]

Hi,

What do you think about including a new argument "title" in the function tablerDashNav. This is my proposal:

`tablerDashNav <- function(id, ..., src = NULL, title = NULL, navMenu = NULL) {

headerTag <- shiny::tags$div(
class = "header main-title py-4",
shiny::tags$div(
class = "container",
shiny::tags$div(
class = "d-flex",
# header brand
shiny::tags$a(
class = "header-brand",
href = "#",
shiny::img(src = src, class = "header-brand-img"),
span(title, id = "header-title")
),
# navbar content
shiny::tags$div(
class = "d-flex order-lg-2 ml-auto",
lapply(list(...), shiny::tagAppendAttributes, class = "mx-2")
),
# header toggle
if (!is.null(navMenu)) {
shiny::tags$a(
href = "#",
class = "header-toggler d-lg-none ml-3 ml-lg-0",
data-toggle = "collapse",
data-target = paste0("#", id),
shiny::tags$span(class="header-toggler-icon")
)
}
)
)
)

navTag <- if (!is.null(navMenu)) {
shiny::tags$div(
class = "header collapse d-lg-flex p-0",
id = id,
shiny::tags$div(
class = "container",
shiny::tags$div(
class = "row align-items-center",
# navigation
shiny::tags$div(
class = "col-lg order-lg-first",
navMenu
)
)
)
)
}

shiny::tagList(headerTag, navTag)
}`

Thanks