critere,
"<span style=color:red> <br>2010: ",
NBEXP10,
"<br>2020: ",
NBEXP20,
"<span style=color:red>"
))
collapsibleTreeNetwork(
(arbre20 %>%
left_join(arbre10) %>%
left_join(label, by = c("NIV" = "NIV2")) %>%
rename(label2 = label) %>%
left_join(label) %>%
relocate("label", .before = "NBEXP20") %>%
relocate("label2", .before = "NBEXP20") %>%
mutate(tooltip = paste0(
"<B>",
NIV2,
": <br>",
libelle,
"</B> <br>",
critere,
"<span style=color:red> <br>2010: ",
NBEXP10,
"<br>2020: ",
NBEXP20,
"<span style=color:red>"
))),
attribute = "label2",
fill = "couleur",
tooltipHtml = "tooltip",
width = 1800,
height = 1200,
collapsed = FALSE,
zoomable = TRUE)
arbre20 %>%
left_join(arbre10) %>%
left_join(label, by = c("NIV" = "NIV2")) %>%
rename(label2 = label) %>%
left_join(label) %>%
relocate("label", .before = "NBEXP20") %>%
relocate("label2", .before = "NBEXP20") %>%
mutate(tooltip = paste0(
"<B>",
NIV2,
": <br>",
libelle,
"</B> <br>",
critere,
"<span style=color:red> <br>2010: ",
NBEXP10,
"<br>2020: ",
NBEXP20,
"<span style=color:red>"
))),
arbre20 %>%
left_join(arbre10) %>%
left_join(label, by = c("NIV" = "NIV2")) %>%
rename(label2 = label) %>%
left_join(label) %>%
relocate("label", .before = "NBEXP20") %>%
relocate("label2", .before = "NBEXP20") %>%
mutate(tooltip = paste0(
"<B>",
NIV2,
": <br>",
libelle,
"</B> <br>",
critere,
"<span style=color:red> <br>2010: ",
NBEXP10,
"<br>2020: ",
NBEXP20,
"<span style=color:red>"
))
arbre20 %>%
left_join(arbre10) %>%
left_join(label, by = c("NIV" = "NIV2")) %>%
rename(label2 = label)
arbre20 %>%
left_join(arbre10) %>%
left_join(label, by = c("NIV" = "NIV")) %>%
rename(label2 = label)
t<-arbre20 %>%
left_join(arbre10) %>%
left_join(label, by = c("NIV" = "NIV2"))
View(t)
View(label)
arbre20 %>%
left_join(arbre10) %>%
left_join(label, by = c("NIV2" = "NIV2")) %>%
rename(label2 = label)
View(arbre20)
arbre20 %>%
left_join(arbre10) %>%
left_join(label, by = c("NIV2" = "NIV2")) %>%
rename(label2 = label) %>%
left_join(label, by = c("NIV" = "NIV2")) %>%
relocate("label", .before = "NBEXP20") %>%
relocate("label2", .before = "NBEXP20")
collapsibleTreeNetwork(
(arbre20 %>%
left_join(arbre10) %>%
left_join(label, by = c("NIV2" = "NIV2")) %>%
rename(label2 = label) %>%
left_join(label, by = c("NIV" = "NIV2")) %>%
relocate("label", .before = "NBEXP20") %>%
relocate("label2", .before = "NBEXP20") %>%
mutate(tooltip = paste0(
"<B>",
NIV2,
": <br>",
libelle,
"</B> <br>",
critere,
"<span style=color:red> <br>2010: ",
NBEXP10,
"<br>2020: ",
NBEXP20,
"<span style=color:red>"
))),
attribute = "label2",
fill = "couleur",
tooltipHtml = "tooltip",
width = 1800,
height = 1200,
collapsed = FALSE,
zoomable = TRUE)
View(label)
arbre20 %>%
left_join(arbre10) %>%
left_join(label, by = c("NIV2" = "NIV2")) %>%
rename(label2 = label) %>%
left_join(label, by = c("NIV" = "NIV2")) %>%
relocate("label", .before = "NBEXP20") %>%
relocate("label2", .before = "NBEXP20")
arbre20 %>%
left_join(arbre10) %>%
left_join(label, by = "NIV2") %>%
rename(label2 = label) %>%
left_join(label, by = c("NIV" = "NIV2")) %>%
relocate("label", .before = "NBEXP20") %>%
relocate("label2", .before = "NBEXP20")
arbre20 %>%
left_join(arbre10) %>%
left_join(label, by = "NIV2") %>%
rename(label2 = label) %>%
left_join(label %>% select(NIV2,label), by = c("NIV" = "NIV2"))
collapsibleTreeNetwork(
(arbre20 %>%
left_join(arbre10) %>%
left_join(label, by = "NIV2") %>%
rename(label2 = label) %>%
left_join(label %>% select(NIV2,label), by = c("NIV" = "NIV2")) %>%
relocate("label", .before = "NBEXP20") %>%
relocate("label2", .before = "NBEXP20") %>%
mutate(tooltip = paste0(
"<B>",
NIV2,
": <br>",
libelle,
"</B> <br>",
critere,
"<span style=color:red> <br>2010: ",
NBEXP10,
"<br>2020: ",
NBEXP20,
"<span style=color:red>"
))),
attribute = "label2",
fill = "couleur",
tooltipHtml = "tooltip",
width = 1800,
height = 1200,
collapsed = FALSE,
zoomable = TRUE)
tab_national <- arbre10 %>%
left_join(arbre20) %>%
left_join(label) %>%
select(NIV2, libelle, NBEXP10, NBEXP20) %>%
mutate(NBEXP10 = ifelse(is.na(NBEXP10), "-", NBEXP10))%>%
mutate(NBEXP20 = ifelse(is.na(NBEXP20), "-", NBEXP20))%>%
gt(caption = html("Typologie INOSYS <br> Source : Recensement Agricole 2010 et 2020/INOSYS")) %>%
cols_label(NIV2 = "Code", label0 = "Label", NBEXP10 = "2010", NBEXP20 = "2020") %>%
tab_spanner(label = "**Exploitations**", columns = 3:4)
tab_national <- arbre10 %>%
left_join(arbre20) %>%
left_join(label) %>%
select(NIV2, libelle, NBEXP10, NBEXP20) %>%
mutate(NBEXP10 = ifelse(is.na(NBEXP10), "-", NBEXP10))%>%
mutate(NBEXP20 = ifelse(is.na(NBEXP20), "-", NBEXP20))%>%
gt(caption = html("Typologie INOSYS <br> Source : Recensement Agricole 2010 et 2020/INOSYS")) %>%
cols_label(NIV2 = "Code", libelle = "Label", NBEXP10 = "2010", NBEXP20 = "2020") %>%
tab_spanner(label = "**Exploitations**", columns = 3:4)
tab_national <- arbre10 %>%
left_join(arbre20) %>%
left_join(label) %>%
select(NIV2, libelle, NBEXP10, NBEXP20) %>%
mutate(NBEXP10 = ifelse(is.na(NBEXP10), "-", NBEXP10))%>%
mutate(NBEXP20 = ifelse(is.na(NBEXP20), "-", NBEXP20))%>%
gt(caption = html("Typologie INOSYS <br> Source : Recensement Agricole 2010 et 2020/INOSYS")) %>%
cols_label(NIV2 = "Code", libelle = "Label", NBEXP10 = "2010", NBEXP20 = "2020")
View(tab_national)
tab_national <- arbre10 %>%
left_join(arbre20) %>%
left_join(label) %>%
select(NIV2, libelle, NBEXP10, NBEXP20) %>%
mutate(NBEXP10 = ifelse(is.na(NBEXP10), "-", NBEXP10))%>%
mutate(NBEXP20 = ifelse(is.na(NBEXP20), "-", NBEXP20))
tab_national <- arbre10 %>%
left_join(arbre20) %>%
left_join(label) %>%
select(NIV2, libelle, NBEXP10, NBEXP20) %>%
mutate(NBEXP10 = ifelse(is.na(NBEXP10), "-", NBEXP10))%>%
mutate(NBEXP20 = ifelse(is.na(NBEXP20), "-", NBEXP20))%>%
gt(caption = html("Typologie INOSYS <br> Source : Recensement Agricole 2010 et 2020/INOSYS")) %>%
cols_label(NIV2 = "Code", libelle = "Libellé", NBEXP10 = "2010", NBEXP20 = "2020") %>%
tab_spanner(label = "**Exploitations**", columns = 3:4)
print(tab_national)
ra_exploit_2020 <- readRDS("~/Arborescence/Données/ra_exploit_2020.rds")
ra_exploit_2010 <- readRDS("~/Arborescence/Données/ra_exploit_2010.rds")
View(ra_exploit_2010)
View(ra_exploit_2020)
ra_exploit_2020  <- sample(c(86, 75), length(SIEGE_REG), replace = TRUE)
ra_exploit_2020  <- ra_exploit_2020%>%sample(c(84, 75), length(SIEGE_REG), replace = TRUE)
ra_exploit_2020 <- ra_exploit_2020 %>%
mutate(SIEGE_REG = sample(c(84, 75), length(SIEGE_REG), replace = TRUE))
ra_exploit_2020 <- ra_exploit_2020 %>%
mutate(SIEGE_REG = sample(c(84, 75), length(SIEGE_REG), replace = TRUE)%>% mutate(SIEGE_DEP=="",SIEGE_CODE_COM=="",GEO_LCT==""))
ra_exploit_2020 <- ra_exploit_2020 %>%
mutate(SIEGE_REG = sample(c(84, 75), length(SIEGE_REG), replace = TRUE)%>% mutate(SIEGE_DEP=="",SIEGE_CODE_COM==""))
ra_exploit_2020 <- ra_exploit_2020 %>%
mutate(SIEGE_REG = sample(c(84, 75), length(SIEGE_REG), replace = TRUE)%>% mutate(SIEGE_DEP=="",SIEGE_CODE_COM=="")
View(ra_exploit_2020)
View(ra_exploit_2020)
ra_exploit_2020 <- ra_exploit_2020 %>%
mutate(
SIEGE_REG = sample(c(84, 75), length(SIEGE_REG), replace = TRUE),
SIEGE_DEP = ifelse(SIEGE_REG == 75, "", SIEGE_DEP),
SIEGE_CODE_COM = ifelse(SIEGE_REG == 75, "", SIEGE_CODE_COM)
)
ra_exploit_2020 <- ra_exploit_2020 %>%
mutate(
SIEGE_REG = sample(c(84, 75), length(SIEGE_REG), replace = TRUE),
SIEGE_DEP = ifelse(SIEGE_REG == c(84, 75), "", SIEGE_DEP),
SIEGE_CODE_COM = ifelse(SIEGE_REG == c(84, 75), "", SIEGE_CODE_COM)
)
ra_exploit_2020 <- ra_exploit_2020 %>%
mutate(
SIEGE_REG = sample(c(84, 75), length(SIEGE_REG), replace = TRUE),
SIEGE_DEP = "",
SIEGE_CODE_COM = "")
)
ra_exploit_2020 <- ra_exploit_2020 %>%
mutate(
SIEGE_REG = sample(c(84, 75), length(SIEGE_REG), replace = TRUE),
SIEGE_DEP = "",
SIEGE_CODE_COM = "")
View(ra_exploit_2010)
ra_exploit_2010 <- ra_exploit_2010 %>%
mutate(
SIEGE_REG = sample(c(84, 75), length(SIEGE_REG), replace = TRUE),
SIEGEDEPCOM = ""
ra_exploit_2010 <- ra_exploit_2010 %>%
ra_exploit_2010 <- ra_exploit_2010 %>%
mutate(
SIEGE_REG = sample(c(84, 75), length(SIEGE_REG), replace = TRUE),
SIEGEDEPCOM = "")
ra_exploit_2010 <- ra_exploit_2010 %>%
mutate(
SIEGE_REG = sample(c(84, 75), length(SIEGEREGDEP), replace = TRUE),
SIEGEDEPCOM = "")
ra_exploit_2020 <- readRDS("~/Arborescence/Données/ra_exploit_2020.rds")%>%saveRDS("~/Arborescence/Données/ra_exploit_2020.rds")
ra_exploit_2010 <- readRDS("~/Arborescence/Données/ra_exploit_2010.rds")%>%saveRDS("~/Arborescence/Données/ra_exploit_2010.rds")
DONNEES_2020<- readRDS("~/Arborescence/Données/inosys_2020.rds")%>%
left_join(ra_exploit_2020 %>% select(NOM_DOSSIER,SIEGE_REG),by(NOM_DOSSIER))
DONNEES_2020<- readRDS("~/Arborescence/Données/inosys_2020.rds")%>%
left_join(ra_exploit_2020 %>% select(NOM_DOSSIER, SIEGE_REG), by = "NOM_DOSSIER")
DONNEES_2020<- readRDS("~/Arborescence/Données/inosys_2020.rds")
DONNEES_2010<- readRDS("~/Arborescence/Données/inosys_2010.rds")
ra_exploit_2020 <- readRDS("~/Arborescence/Données/ra_exploit_2020.rds")
ra_exploit_2010 <- readRDS("~/Arborescence/Données/ra_exploit_2010.rds")
DONNEES_2020<- DONNEES_2020%>%
left_join(ra_exploit_2020 %>% select(NOM_DOSSIER, SIEGE_REG), by = "NOM_DOSSIER")
DONNEES_2010<- readRDS("~/Arborescence/Données/inosys_2010.rds")%>%
left_join(ra_exploit_2010 %>% select(ID_DOSSIER, SIEGE_REG), by = "ID_DOSSIER")
View(ra_exploit_2010)
View(arbre10)
View(DONNEES_2010)
View(ra_exploit_2010)
View(ra_exploit_2020)
ra_exploit_2020 <- ra_exploit_2020 %>%
+     mutate(
+         SIEGE_REG = sample(c(84, 75), length(SIEGE_REG), replace = TRUE),
ra_exploit_2020 <- ra_exploit_2020 %>%
mutate(
SIEGE_REG = sample(c(84, 75), length(SIEGE_REG), replace = TRUE),
SIEGE_DEP = "",
SIEGE_CODE_COM = "")
saveRDS("~/Arborescence/Données/ra_exploit_2020.rds")
ra_exploit_2020 %>%saveRDS("~/Arborescence/Données/ra_exploit_2020.rds")
ra_exploit_2010 <- ra_exploit_2010 %>%
+     mutate(
+         SIEGE_REG = sample(c(84, 75), length(SIEGEREGDEP), replace = TRUE),
ra_exploit_2010 <- ra_exploit_2010 %>%
+     mutate(
+         SIEGE_REG = sample(c(84, 75), length(SIEGEREGDEP), replace = TRUE),
ra_exploit_2010 <- ra_exploit_2010 %>%
mutate(
SIEGE_REG = sample(c(84, 75), length(SIEGEREGDEP), replace = TRUE),
SIEGEDEPCOM = "")
ra_exploit_2010 %>%saveRDS("~/Arborescence/Données/ra_exploit_2010.rds")
DONNEES_2020<- readRDS("~/Arborescence/Données/inosys_2020.rds")
DONNEES_2010<- readRDS("~/Arborescence/Données/inosys_2010.rds")
ra_exploit_2020 <- readRDS("~/Arborescence/Données/ra_exploit_2020.rds")
ra_exploit_2010 <- readRDS("~/Arborescence/Données/ra_exploit_2010.rds")
DONNEES_2020<- DONNEES_2020%>%
left_join(ra_exploit_2020 %>% select(NOM_DOSSIER, SIEGE_REG), by = "NOM_DOSSIER")
DONNEES_2010<- readRDS("~/Arborescence/Données/inosys_2010.rds")%>%
left_join(ra_exploit_2010 %>% select(ID_DOSSIER, SIEGE_REG), by = "ID_DOSSIER")
t<-DONNEES_2010%>%
mutate(nb_exploit=1)%>%
group_by(SIEGE_REG)%>%
summarise(NBEXP=secret_stat(nb_exploit,sum,na.rm=TRUE))%>%
mutate(NIV=NA)%>%
mutate(NIV2="RA")
source("~/Arborescence/Utilitaire/utilitaires.R")
#### création de la fonction pour calculer les effectifs par niveau avec le niveau précèdant
effectif<- function(data, group_var1, group_var2, group_var3) {
data %>%
mutate(nb_exploit = 1) %>%
group_by({{ group_var1 }}, {{ group_var2 }}, {{ group_var3 }}) %>%
summarise(NBEXP = secret_stat(nb_exploit, sum, na.rm = TRUE)) %>%
rename(NIV = {{ group_var1 }}, NIV2 = {{ group_var2 }}) %>%
filter(!grepl("^Exploitation_non_affectee_niv", NIV2) & NIV2 != 'Non_repechees')}
#### 2020 ####
t<-DONNEES_2010%>%
mutate(nb_exploit=1)%>%
group_by(SIEGE_REG)%>%
summarise(NBEXP=secret_stat(nb_exploit,sum,na.rm=TRUE))%>%
mutate(NIV=NA)%>%
mutate(NIV2="RA")
t0<-DONNEES_2010%>%
mutate(nb_exploit=1)%>%
group_by(TYPO_NATIONALE_APCA_NIV0,SIEGE_REG)%>%
summarise(NBEXP=secret_stat(nb_exploit,sum,na.rm=TRUE))%>%
mutate(NIV="RA")%>%
rename(NIV2=TYPO_NATIONALE_APCA_NIV0)
t1<-effectif(DONNEES_2010,TYPO_NATIONALE_APCA_NIV0,TYPO_NATIONALE_APCA_NIV1,SIEGE_REG)
t2<-effectif(DONNEES_2010,TYPO_NATIONALE_APCA_NIV1,TYPO_NATIONALE_APCA_NIV2,SIEGE_REG)
t3<-effectif(DONNEES_2010,TYPO_NATIONALE_APCA_NIV2,TYPO_NATIONALE_APCA_NIV3,SIEGE_REG)
# t4<-effectif(DONNEES_2010,TYPO_NATIONALE_APCA_NIV3,TYPO_NATIONALE_APCA_NIV4)
#
# t5<-effectif(DONNEES_2010,TYPO_NATIONALE_APCA_NIV4,TYPO_NATIONALE_APCA_NIV5)
#
# t6<-effectif(DONNEES_2010,TYPO_NATIONALE_APCA_NIV5,TYPO_NATIONALE_APCA_NIV6)
#
# t7<-effectif(DONNEES_2010,TYPO_NATIONALE_APCA_NIV6,TYPO_NATIONALE_APCA_NIV7)
#
# t8<-effectif(DONNEES_2010,TYPO_NATIONALE_APCA_NIV7,TYPO_NATIONALE_APCA_NIV8)
TOTAL_2010= rbind(t,t0,t1,t2,t3)%>%
rename(NBEXP10=NBEXP)
###Suppresion
rm(t,t0,t1,t2,t3)
View(TOTAL_2010)
#### 1_ Script création de la base de données pour faire un arbre html ##############################
####Chargement des packages ####
library(readxl)
library(writexl)
library(tidyverse)
library(here)
#### Chargement des bases ####
DONNEES_2020<- readRDS("~/Arborescence/Données/inosys_2020.rds")
DONNEES_2010<- readRDS("~/Arborescence/Données/inosys_2010.rds")
ra_exploit_2020 <- readRDS("~/Arborescence/Données/ra_exploit_2020.rds")
ra_exploit_2010 <- readRDS("~/Arborescence/Données/ra_exploit_2010.rds")
DONNEES_2020<- DONNEES_2020%>%
left_join(ra_exploit_2020 %>% select(NOM_DOSSIER, SIEGE_REG), by = "NOM_DOSSIER")
DONNEES_2010<- readRDS("~/Arborescence/Données/inosys_2010.rds")%>%
left_join(ra_exploit_2010 %>% select(ID_DOSSIER, SIEGE_REG), by = "ID_DOSSIER")
#####Chargements des fonctions
source("~/Arborescence/Utilitaire/utilitaires.R")
#### création de la fonction pour calculer les effectifs par niveau avec le niveau précèdant
effectif<- function(data, group_var1, group_var2, group_var3) {
data %>%
mutate(nb_exploit = 1) %>%
group_by({{ group_var1 }}, {{ group_var2 }}, {{ group_var3 }}) %>%
summarise(NBEXP = secret_stat(nb_exploit, sum, na.rm = TRUE)) %>%
rename(NIV = {{ group_var1 }}, NIV2 = {{ group_var2 }}) %>%
filter(!grepl("^Exploitation_non_affectee_niv", NIV2) & NIV2 != 'Non_repechees')}
#### 2020 ####
t<-DONNEES_2010%>%
mutate(nb_exploit=1)%>%
group_by(SIEGE_REG)%>%
summarise(NBEXP=secret_stat(nb_exploit,sum,na.rm=TRUE))%>%
mutate(NIV=NA)%>%
mutate(NIV2="RA")
t0<-DONNEES_2010%>%
mutate(nb_exploit=1)%>%
group_by(TYPO_NATIONALE_APCA_NIV0,SIEGE_REG)%>%
summarise(NBEXP=secret_stat(nb_exploit,sum,na.rm=TRUE))%>%
mutate(NIV="RA")%>%
rename(NIV2=TYPO_NATIONALE_APCA_NIV0)
t1<-effectif(DONNEES_2010,TYPO_NATIONALE_APCA_NIV0,TYPO_NATIONALE_APCA_NIV1,SIEGE_REG)
t2<-effectif(DONNEES_2010,TYPO_NATIONALE_APCA_NIV1,TYPO_NATIONALE_APCA_NIV2,SIEGE_REG)
t3<-effectif(DONNEES_2010,TYPO_NATIONALE_APCA_NIV2,TYPO_NATIONALE_APCA_NIV3,SIEGE_REG)
TOTAL_2010= rbind(t,t0,t1,t2,t3)%>%
rename(NBEXP10=NBEXP)
###Suppresion
rm(t,t0,t1,t2,t3)
####2020 ####
e<-DONNEES_2020%>%
mutate(nb_exploit=1)%>%
group_by(SIEGE_REG)%>%
summarise(NBEXP=secret_stat(nb_exploit,sum,na.rm=TRUE))%>%
mutate(NIV=NA)%>%
mutate(NIV2="RA")
e0<-DONNEES_2020%>%
mutate(nb_exploit=1)%>%
group_by(TYPO_NATIONALE_APCA_NIV0,SIEGE_REG)%>%
summarise(NBEXP=secret_stat(nb_exploit,sum,na.rm=TRUE))%>%
mutate(NIV="RA")%>%
rename(NIV2=TYPO_NATIONALE_APCA_NIV0)
e1<-effectif(DONNEES_2020,TYPO_NATIONALE_APCA_NIV0,TYPO_NATIONALE_APCA_NIV1)
e2<-effectif(DONNEES_2020,TYPO_NATIONALE_APCA_NIV1,TYPO_NATIONALE_APCA_NIV2)
e3<-effectif(DONNEES_2020,TYPO_NATIONALE_APCA_NIV2,TYPO_NATIONALE_APCA_NIV3)
TOTAL_2020= rbind(e,e0,e1,e2,e3)%>%
rename(NBEXP20=NBEXP)
source("~/Arborescence/Documentation/CSS_arbre.R")
# Définir le contenu CSS que vous souhaitez écrire dans le fichier
css_content <- "
/* Votre fichier CSS commence ici */
tr:nth-child(odd) td {
background-color: #f6a312BFAA; /* Vert ligne table */
}
/* Styles pour l'en-tête personnalisé */
.custom-header {
text-align: center;
}
.custom-header h1 {
font-size: 24px; /* Taille du titre */
margin-top: 5px; /* Espacement du haut */
}
/* Styles pour les images */
img {
max-width: 60%;
height: auto;
}
h1 {
color: #00a8b4;
font-size: 28px;
}
h2 {
color: #ec6b1c;
font-size: 22px;
}
h3 {
color: #f6a312;
font-size: 20px;
}
h4 {
color: #2eb7c1;
font-size: 18px;
}
h4 {
color: #2eb7c1;
font-size: 16px;
font-style: italic !important;
}
body {
background-color: white;
}
#content {
background-color: white;
}
#sidebar {
background: #2eb7c1; /* couleur de fond du sommaire */
}
#sidebar a {
color: white; /*couleur du texte du sommaire*/
}
#sidebar h2 {
background-color: #00a8b4 ; /*couleur de fond du carré en haut à gauche de la page */
height: 200 px;
}
#sidebar a:hover {
background-color: #2ab7c1AA;
color: white; /*couleur du texte en passant la souris dessus*/
}
#postamble {
background:#2eb7c1;
color: white;
border-top:solid 10px #00a8b4;
}
}
/* Votre fichier CSS se termine ici */
"
# Spécifiez le chemin et le nom du fichier CSS que vous souhaitez créer
css_file_path <- "~/Documents/INOSYS/Arbre_commun/styles.css"
# Écrivez le contenu CSS dans le fichier
writeLines(css_content, con = css_file_path)
source("~/Arborescence/Documentation/CSS_arbre.R")
source("~/Arborescence/Scripts/1_Arbre.R")
source("~/Arborescence/Documentation/CSS_arbre.R")
source("~/Arborescence/Documentation/CSS_arbre.R")
css_file_path <- "~Documentation/styles.css"
writeLines(css_content, con = css_file_path)
# Spécifiez le chemin et le nom du fichier CSS que vous souhaitez créer
css_file_path <- "~/Documentation/styles.css"
# Écrivez le contenu CSS dans le fichier
writeLines(css_content, con = css_file_path)
source("~/Arborescence/Documentation/CSS_arbre.R")
