R/default_admin_ui_options.R

In polished: Authentication and Hosting for 'shiny' Apps

#' Default Options for the Admin UI
#'
#' This function specifies the default logos that are displayed in the "Admin Panel".
#'
#' @importFrom htmltools tagList tags
#'
#' @return the default list of HTML for branding elements in the Admin Panel UI. The valid list element names are:
#' \itemize{
#'   \item \code{title} - Title/Logo element in top left corner of Admin Panel dashboard & browser tab title
#'   \item \code{sidebar_branding} - Branding (e.g. Logo) on left sidebar of Admin Panel dashboard
#'   \item \code{browser_tab_icon} - Icon to display in browser tab
#' }
#'
default_admin_ui_options <- function() {
  list(


    title = htmltools::tagList(
      htmltools::tags$a(
        href = "https://polished.tech/",
        target = "_blank",
        htmltools::tags$img(
          src = "polish/images/polished_logo_transparent_text_2.png",
          style = "height: 37.5px; width: 180px; padding: 0",
          alt = "Polished Logo"
        )
      ),
      htmltools::tags$head(htmltools::tags$title("Polished"))
    ),


    sidebar_branding = htmltools::tags$a(
      href = "https://www.tychobra.com/",
      target = "_blank",
      htmltools::tags$img(
        style = "position: fixed; bottom: 0; left: 0; width: 230px;",
        src = "polish/images/tychobra_logo_blue_co_name.png"
      )
    ),

    browser_tab_icon = htmltools::tags$link(
      rel = "shortcut icon",
      href = "polish/images/polished_icon.png"
    )
  )
}