Customize gentelella Icon

[DivadNojnarg]

On a related topic:

Is there any chance to customize the Gentelella Icon ("Paw") alongside the title in the top left corner of the Sidebar inside the R code?

Thank you!

Originally posted by @Friedrichz in https://github.com/MarkEdmondson1234/gentelellaShiny/issues/5#issuecomment-459979375

[DivadNojnarg]

See:

gentelellaSidebar <- function(...,
                              site_title = shiny::HTML(paste(shiny::icon("paw"),
                                                             "Shiny Gentelella")),
                              url = NULL, fixed = FALSE, footer = NULL){

  sidebarCl <- "col-md-3 left_col"
  if (fixed) sidebarCl <- paste0(sidebarCl, " menu_fixed")

  tags$div(
    class = sidebarCl,
    tags$div(
      class = "left_col scroll-view",
      tags$div(
        class = "navbar nav_title",
        style = "border: 0;",
        tags$a(
          class = "site_title",
          site_title,
          href = url,
          target = "_blank"
        )
      ),
      tags$div(class = "clearfix"),
      # sidebar Menu and Items
      ...,
      # sidebar footer
      tags$div(
        class = "sidebar-footer hidden-small",
        footer
      )
    )
  )
}

The site title and icon can be replaced by any other element site_title = shiny::HTML(paste(shiny::icon("paw"), "Shiny Gentelella"))