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

## ----setup--------------------------------------------------------------------
library(serad)

## -----------------------------------------------------------------------------
get_serad_language()

## ----eval = FALSE-------------------------------------------------------------
# set_serad_language("en")

## ----eval = FALSE-------------------------------------------------------------
# set_serad_language("fr")

## ----eval = FALSE-------------------------------------------------------------
# options(serad.lang = "en")
# library(serad)

## -----------------------------------------------------------------------------
g(105, 100)
g(95, 100)

## -----------------------------------------------------------------------------
format_taux(5.3654, signe = FALSE)  # Part : 5,4 %
format_taux(5.3654)                 # Hausse : +5,4 %
format_taux(-5.3654)                # Baisse : -5,4 %

## -----------------------------------------------------------------------------
format_pts(5.3654)
format_pts(-1.2)
format_pts(1.3654, signe = FALSE)
format_pts(5.3654, abrev = TRUE)

## -----------------------------------------------------------------------------
format_niv(365484)
format_niv(365484, signe = TRUE)
format_niv(300000 - 365484, signe = TRUE)

## -----------------------------------------------------------------------------
g_nom(1.04, 1)
g_nom(1.001, 1)
g_nom(0.95, 1)

## -----------------------------------------------------------------------------
g_nom_evo(4)
g_nom_evo(0)
g_nom_evo(-4)

## -----------------------------------------------------------------------------
g_nom_evo(4, titre = TRUE)
g_nom_evo(-4, titre = TRUE)

## -----------------------------------------------------------------------------
g_verbe(1.10, 1)
g_verbe(1.003, 1)
g_verbe(0.96, 1)

## -----------------------------------------------------------------------------
g_verbe_evo(10)
g_verbe_evo(0)
g_verbe_evo(-4)

## -----------------------------------------------------------------------------
g_verbe_evo(-0.1)
g_verbe_evo(-0.1, stable_sans_valeur = FALSE)

## -----------------------------------------------------------------------------
# Situer un niveau
comparaison(104, 100, 
            "au-dessus de", 
            "au même niveau que",
            "en dessous de", 
            seuil = 0)

# Qualifier une tendance
comparaison(120, 100, 
            "à la hausse", 
            "stable",
            "à la baisse", 
            seuil = 0.1)

# Comparer des quantités
comparaison(104, 100, 
            "davantage", 
            "autant",
            "moins", 
            seuil = 0)

## -----------------------------------------------------------------------------
comparaison_taux(
  1.04, 1,
  hausse_defaut = "excèdent",
  egalite_defaut = "sont au niveau de",
  baisse_defaut = "sont en dessous de",
  alt = TRUE,
  hausse_alt = "excède",
  egalite_alt = "est au niveau de",
  baisse_alt = "est en dessous de"
)

## -----------------------------------------------------------------------------
gETa_nom(1.1, 1, 0.99)
gETa_nom(0.96, 1, 1.01)
gETa_nom(1.00049, 1, 0.9996)

## -----------------------------------------------------------------------------
gETa_verbe(1.1, 1, 0.99)
gETa_verbe(0.96, 1, 1.01)
gETa_verbe(1.003, 1, 0.99, sing = FALSE)

## -----------------------------------------------------------------------------
gETa_verbe_taux(10, 1, alea = 1)
gETa_nom_taux(10, 1, alea = 1)

## -----------------------------------------------------------------------------
libelle_periode(3, 2023, periode = "mois")
libelle_periode(12, 2023, periode = "mois", decalage = 1)
libelle_periode(1, 2023, periode = "mois", decalage = -1)

## -----------------------------------------------------------------------------
libelle_periode(3, 2023, periode = "trimestre")
libelle_periode(3, 2023, periode = "trimestre", format = "chiffres")
libelle_periode(4, 2023, periode = "trimestre", decalage = 1)

## -----------------------------------------------------------------------------
pluriel(1, "création", "créations")  # "création"
pluriel(3, "création", "créations")  # "créations"

## -----------------------------------------------------------------------------
set_serad_language("en")

g_nom(1.04, 1)
g_verbe(1.04, 1)
gETa_nom(1.1, 1, 0.99)
gETa_verbe(1.1, 1, 0.99)
format_taux(5.4)
format_pts(2.3)
format_niv(365484)
libelle_periode(3, 2023)

## -----------------------------------------------------------------------------
set_serad_language("fr")

## ----eval = FALSE-------------------------------------------------------------
# init_serad_fr()
# init_serad_en()

## ----eval = FALSE-------------------------------------------------------------
# serad0 <- init_serad_fr()
# 
# serad0$evo_simple <- tibble::tribble(
#   ~seuil, ~verbe_sing, ~verbe_plur, ~nom,
#   1,     "augmente", "augmentent", "une hausse",
#   0,     "est stable", "sont stables", "une stabilité",
#   -Inf,  "diminue", "diminuent", "une baisse"
# )
# 
# options(serad = serad0)

## ----eval = FALSE-------------------------------------------------------------
# serad0 <- init_serad_fr()
# 
# serad0$seuil$stable <- 0.1
# serad0$seuil$accel_hausse <- 40
# serad0$seuil$accel_baisse <- -40
# 
# options(serad = serad0)

## ----eval = FALSE-------------------------------------------------------------
# ?init_serad

## ----eval = FALSE-------------------------------------------------------------
# options(serad.lang = "en")
# library(serad)
# 
# # ou après chargement
# set_serad_language("en")