## ----include = FALSE----------------------------------------------------------
knitr::opts_chunk$set(
  collapse = TRUE,
  comment  = "#>",
  eval     = FALSE
)

## ----setup--------------------------------------------------------------------
# library(bs4Dashkit)

## -----------------------------------------------------------------------------
# dash_footer(
#   logo_src  = "logo.png",
#   left_text = "My Org",
#   right_text = NULL #no text is rendered on the right
# )

## -----------------------------------------------------------------------------
# 
# dash_footer(
#   logo_src = "logo.png",
#   left_text = "My Org",
#   logo_position = "right"
# )
# 

## -----------------------------------------------------------------------------
# dash_footer(
#   logo_src       = "logo.png",
#   left_text      = "Your Organisation",
#   logo_position  = "right"
# )

## -----------------------------------------------------------------------------
# dash_footer(
#   logo_src = "logo.png",
#   left_text = "My Org",
#   logo_position = "right"
# )
# 

## -----------------------------------------------------------------------------
# dash_footer(
#   logo_src  = NULL,
#   left_text = "Your Organisation \u2022 2025"
# )

## -----------------------------------------------------------------------------
# dash_footer(
#   left_text = NULL,
#   right_text = "Internal Use Only",
#   logo_src = NULL
# )

## -----------------------------------------------------------------------------
# dash_footer(
#   logo_src   = "logo.png",
#   left_text  = "Your Organisation",
#   right_text = "v0.1.0"
# )
# 

## -----------------------------------------------------------------------------
# library(shiny)
# library(bs4Dash)
# library(bs4Dashkit)
# 
# ttl <- dash_titles("My App")
# 
# ui <- bs4DashPage(
#   title   = ttl$app_name,
#   header  = bs4DashNavbar(title = ttl$brand),
#   sidebar = bs4DashSidebar(),
#   body    = bs4DashBody(
#     use_bs4Dashkit_core(ttl)
#   ),
#   footer  = dash_footer(
#     logo_src  = NULL,
#     left_text = "Your Organisation \u2022 Internal Use Only"
#   )
# )
# 
# server <- function(input, output, session) {}
# shinyApp(ui, server)

## -----------------------------------------------------------------------------
# dash_footer(logo_src = "assets/logo.png", left_text = "My Org")

## -----------------------------------------------------------------------------
# # Don't do this (file path will not load in the browser):
# dash_footer(logo_src = "C:/Users/.../logo.png", left_text = "My Org")
#