#' TTitle for datatable
#'
#' @param data La base de donnees
#' @param number Une chaine de caractere ou un chiffre qui viendra se mettre devant le titre sous forme : "Tableau .... : "
#' @param title Une chaine de caractere qui sera le titre
#' @param color Chaine de caractere qui peut etre soit au format HSL, HEX, RGB, ou une chaine de caractere qui correspond a la palette de couleur de base de R.
#' @param ... Parametre autre
#'
#' @return
TABLEAU_TITRE <- function(data = data,
number = NULL,
title = NULL,
color = color,
...){
# toto = paste('caption-side: top;
# text-align: center;
# color:',
# color,
# ';font-size: 2em;
# text-decoration: underline;
# margin-top: 15px;
# margin-bottom: 15px;',
# sep = "")
toto = glue::glue("caption-side: top;text-align: center;color:{color};font-size: 2em; text-decoration: underline;margin-top: 15px; margin-bottom: 15px;")
tata = paste0('font-size: 1em;')
if (is.null(number) == TRUE &
!is.null(title) == TRUE){
title = htmltools::tags$caption(style = toto,
htmltools::em(style = tata,
glue::glue(title)))
} else if (!is.null(number) == TRUE &
is.null(title) == TRUE){
title = htmltools::tags$caption(style = toto,
paste("Tableau",
number,
sep = " "),
htmltools::em(title))
} else if (!is.null(number) == TRUE &
!is.null(title) == TRUE){
title = htmltools::tags$caption(style = toto,
paste("Tableau",
number,
":",
sep = " "),
htmltools::em(glue::glue(title)))
} else {title = NULL}
return(title)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.