add beta options to header

R/dsfr-header.R

@@ -7,6 +7,7 @@
 #' @param service_href Le lien de redirection (Accueil par défaut)
 #' @param service_href_title Le titre du lien affiché en infobulle
 #' @param enlarge_link  Elargit le lien au bloc (TRUE par defaut)
+#' @param beta Badge beta (FALSE par defaut)
 #' @param logo_src Chemin vers le logo
 #' @param logo_alt Texte alternatif si le logo ne s'affiche pas
 #' @param logo_style_width Taille du logo
@@ -35,6 +36,7 @@ dsfrHeader <- function(
   logo_src = NULL ,
   logo_alt = "logo",
   logo_style_width ="width:3.5rem;",
+  beta = FALSE,
   enlarge_link = TRUE
 ) {
 
@@ -60,7 +62,8 @@ dsfrHeader <- function(
         title = service_href_title,
         tags$p(
           class = "fr-header__service-title",
-          service_title
+          service_title,
+          if (beta) tags$span(class = "fr-badge fr-badge--sm fr-badge--green-emeraude","BETA")
         )
       ),
       tags$p(