-
Notifications
You must be signed in to change notification settings - Fork 0
/
Route.Rmd
39 lines (32 loc) · 2.24 KB
/
Route.Rmd
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
# Feuille de route {.unnumbered #route}
<!--
```{r route, echo = FALSE, warning = FALSE, out.width = '100%'}
library(kableExtra)
data <- read.table("FeuilleRoute.csv", sep = ",", header = FALSE )
colnames(data) <- NULL
kbl(data,"html", align = c("l",rep("c",15))) %>%
kable_classic(full_width = TRUE)%>%
#kable_styling(bootstrap_options = c("condensed", "responsive")) %>%
#kable_styling(font_size = 13)%>%
add_header_above(c("", " 1"=1, " 2"=1," 3"=1, " 4"=1, " 5"=1, " 6"=1,
" 7"=1, " 8"=1," 9"=1, "10"=1, "11"=1,"12"=1, "13"=1, "14"=1,"15"=1)) %>%
add_header_above(c("Modules" = 1, "Semaines" = 15)) %>%
column_spec(1:16, background = "white", border_right = "1px solid black") %>%
#column_spec(2:16, width = c(rep("0.2cm",15))) %>%
column_spec(2:16, width_max = "0.3cm", width_min = "0.3cm") %>%
column_spec(1, width = "5cm") %>%
column_spec(2, background = c("lightgrey", "lightgrey", rep("white",8), "lightpink", rep("white",11)) ) %>%
column_spec(3, background = c("white", "white", "lightgrey", "lightgrey", rep("white",6), "lightpink", rep("white",11)) ) %>%
column_spec(4, background = c(rep("white",4), "lightgrey", "lightgrey", rep("white",4), "lightpink", rep("white",11)) ) %>%
column_spec(5, background = c(rep("white",6), "lightgrey", "lightgrey", rep("white",2), "lightpink", rep("white",11)) ) %>%
column_spec(6, background = c(rep("white",8), "lightgrey", "lightgrey", "lightpink", rep("white",11)) ) %>%
column_spec(c(7,8,9), background = c(rep("white",11), "lightgrey", "lightgrey", "lightpink", rep("white",8)) ) %>%
column_spec(c(10, 11), background = c(rep("white",14), "lightgrey", "lightgrey", "white", "white","lightpink", rep("white",3)) ) %>%
column_spec(c(12,13), background = c(rep("white",16), "lightgrey", "lightgrey", "lightpink", rep("white",3)) ) %>%
column_spec(c(14,15), background = c(rep("white",19), "lightgrey", "lightgrey", rep("white",1)) ) %>%
column_spec(c(16), background = c(rep("white",21), "lightpink") ) %>%
row_spec(c(11,14, 19, 22), bold = T, color = "red", font_size = 13) %>%
row_spec(c(1,3,5,7,9,12, 15,17, 20), bold = T, font_size = 12)%>%
row_spec(c(2,4,6,8,10,11,13, 14,16,18,19, 21), extra_css = "border-bottom: 1px solid black", font_size = 10)
```
-->