R/footer.R

Defines functions footer

#' @title TPL footer
#' @description Creates the TPL footer to add to dashboards and reports
#' @param version the version of the dashboard
#' @export
footer <- function() {
  
  htmltools::tags$footer(
    htmltools::tags$div(class = "star"
                        ,htmltools::tags$object(type="image/svg+xml"
                                                ,data="svg/tpl_star_red.svg")
    ),
    htmltools::tags$div(class="first-row"
                        ,htmltools::tags$div(class = "g-container"
                                             ,htmltools::tags$div(class = "g-row"
                                                                  ,htmltools::tags$div(class = "footer_logo",
                                                                                       htmltools::tags$object(class="footer_logo-tpl"
                                                                                                              ,type="image/svg+xml"
                                                                                                              ,data="svg/tpl_text_logo_color.svg")
                                                                  )
                                                                  ,htmltools::tags$div(class="footer_copyright"
                                                                                       ,htmltools::tags$p(
                                                                                         htmltools::tags$strong(
                                                                                           HTML(paste("Copyright"
                                                                                                      ,format(Sys.Date(), "%Y")
                                                                                                      ,htmltools::tags$a(href = TPL_URL,
                                                                                                                         "Texas Policy Lab")
                                                                                                      ,sep = " "))
                                                                                         )
                                                                                       )
                                                                  )
                                                                  ,htmltools::tags$div(class = "footer_contact"
                                                                                       ,htmltools::tags$p(
                                                                                         htmltools::tags$a("Contact Us"
                                                                                                           ,class = "btn"
                                                                                                           ,target = ""
                                                                                                           ,href = "mailto:texaspolicylab@rice.edu")
                                                                                       )
                                                                  )
                                             )
                        )
    )
  )
}
Texas-Policy-Lab/childcare_app documentation built on March 22, 2021, 12:42 p.m.