R/fn42b_remplace_txt_titre.R

In ggwinter/eptb2022: Creer une plaquette 4 pages a partir de donnees geokit et csv

#' Scibus : texte, remplace le texte du titre
#'
#' @param x la date de l'annee d'etude
#'
#' @return
#' @importFrom dplyr filter
#' @importFrom dplyr pull
#' @importFrom stringr  str_detect
#' @importFrom utf8 as_utf8
#' @importFrom xml2 xml_set_attr
#' @importFrom xml2 xml_find_all
#' @importFrom xml2 xml_children
#' @export
fn42b_remplace_txt_titre <- function(x = ls_dates$annee_etude) {
  ls_modele$t_objets_numero %>%
    dplyr::filter(stringr::str_detect(nom_objet, "_titre$|_Titre$")) %>%
    dplyr::pull(num_objet) %>% as.integer() -> num_node_titre

  titre_new <- utf8::as_utf8(c("Prix des terrains à b\u00e2tir", paste0("en ", x)))#"Prix des terrains \u00e0 b\u00e2tir"


  xml_set_attr(
    ls_modele$pg %>%
      xml2::xml_find_all(".//PAGEOBJECT") %>%
      .[[num_node_titre]]  %>%
      xml2::xml_children() %>%
      xml2::xml_find_all("ITEXT"),
    "CH",
    titre_new
  )

}