コミット: cb6b3c288ba6e4ce099662f015333be3102eed2b - myprojects-hg-reborn (hg)

コミットメタ情報

• リビジョン: cb6b3c288ba6e4ce099662f015333be3102eed2b (tree)
• 日時: 2021-02-24 00:06:41
• 作者: Lorenzo Isella <lorenzo.isella@gmai...>
• コミッター: Lorenzo Isella

ログメッセージ

I now generate a lot more tables with kableExtra.

変更サマリ

• modified: R-codes/process_covid_tracker.R

差分

diff -r e7b444ef5985 -r cb6b3c288ba6 R-codes/process_covid_tracker.R
--- a/R-codes/process_covid_tracker.R	Tue Feb 23 10:04:57 2021 +0100
+++ b/R-codes/process_covid_tracker.R	Tue Feb 23 16:06:41 2021 +0100
@@ -1,6 +1,6 @@
 rm(list=ls())
 
-## last saved on  Time-stamp: "2021-02-22 20:38:46 lorenzo"
+## last saved on  Time-stamp: "2021-02-23 16:04:20 lorenzo"
 
 
 library(tidyverse)
@@ -8,12 +8,32 @@
 ## library(lubridate)
 library(openxlsx)
 library(stringr)
+library(formattable)
 
 library(kableExtra)
 
 ## source("/home/lorenzo/myprojects-hg/R-codes/stat_lib.R")
 
 
+
+##Function to be used independently
+
+wrapper2 <- function(x, width) {
+    lapply(strwrap(x, width = width, simplify = FALSE), paste, collapse="\n")
+    
+}
+
+
+
+wrapper_text <- function(x, width) {
+    res <- wrapper2(x, width) %>% unlist %>%
+        linebreak(align="l")
+    return(res)
+}
+
+
+
+
 format_col <- function(x, n, my_sep=" "){
 
     res <- format(round(x, n), nsmall = n, big.mark= my_sep, trim=TRUE )
@@ -1073,39 +1093,18 @@
                 align="c")
 
 
-## pos <- which(t1_plot$partnerlabel %in% c("FTAs implemented",
-##                                          "New generation of FTAs",
-##                                          "DCFTAs" ,
-##                                          "EPAs",
-##                                          "FTAs concluded",
-##                                          "FTAs future",
-##                                          "First generation of FTAs",
-##                                          "Others",
-##                                          "Total extra EU27 trade") )
 
 ll <- t1_plot %>%
     search_replace( "%", "\\\\%" )  %>%
     na_to_pattern(":") %>%
     pattern_to_pattern("NA", ":") %>%
-    ## pattern_to_pattern("NA\\%", "") %>%    
-    ## mutate(across(everything(),linebreak))   %>%
-    ## mutate_all(linebreak) %>% 
     kable("latex", booktabs = T, escape = F,align=c("l", rep("r",11)),
           col.names = nn,
           caption = "EU Wide Statistics on Covid19 State Aid Measures"
-        ## , linesep = c("\\addlinespace", "\\addlinespace", "","","","","","","\\addlinespace","", "",
-        ##               "","","","","","\\addlinespace","\\addlinespace",
-        ##               "\\addlinespace","\\addlinespace","","","","\\addlinespace","","","","","","","")
-
           )      %>%
     kable_styling(latex_options = c("striped", "hold_position"),
                   full_width = F## , font_size = 7
                   ) %>%
-    ## add_indent(c(c(3,4,5,6,7,8,9,10,11,12,13,14,15,16, 17, 18, 19,20 ,22,23,24
-    ##                ,26,27,28,29,30,31,32
-    ##               ))) %>% 
-    ## add_header_above(c( "" , "Exports"=3,
-    ##                    "Imports"=3, "Total trade"=3)) %>%
     footnote(general=c(
     "\\\\textit{Source}: ISIS Database."),general_title = " ", escape = FALSE,
              threeparttable = T) ## %>%
@@ -1134,118 +1133,895 @@
     ll,
     "\\end{document}"
   ),
-  "table.tex"
+  "table1.tex"
 )
 
 
 
-tools::texi2pdf("table.tex", clean = TRUE)
-
-
-
-
-
-
-
-
-
-
-
-
-
-## t1_plot <-  t1 %>%
-##     search_replace( "%", "\\\\%" )
-
-
-
-
-## nn <- linebreak( c("Partners",
-##                    "Value", "Share in\nextra EU27", "Growth\n2018-2019",
-##                    "Value", "Share in\nextra EU27", "Growth\n2018-2019",
-##                    "Value", "Share in\nextra EU27", "Growth\n2018-2019")  ,
-##                 align="c")
-
-
-## pos <- which(t1_plot$partnerlabel %in% c("FTAs implemented",
-##                                          "New generation of FTAs",
-##                                          "DCFTAs" ,
-##                                          "EPAs",
-##                                          "FTAs concluded",
-##                                          "FTAs future",
-##                                          "First generation of FTAs",
-##                                          "Others",
-##                                          "Total extra EU27 trade") )
-
-## ll <- t1_plot %>%
-##     ## search_replace( "%", "\\\\%" )  %>%
-##     na_to_pattern(":") %>%
-##     pattern_to_pattern("NA", ":") %>%
-##     ## pattern_to_pattern("NA\\%", "") %>%    
-##     mutate(across(everything(),linebreak))   %>%
-##     ## mutate_all(linebreak) %>% 
-##     kable("latex", booktabs = T, escape = F,align=c("l", rep("r",11)),
-##           col.names = nn,
-##           caption = "EU27 trade in goods by FTA partner, 2019 (billion EUR, \\%)"
-##         , linesep = c("\\addlinespace", "\\addlinespace", "","","","","","","\\addlinespace","", "",
-##                       "","","","","","\\addlinespace","\\addlinespace",
-##                       "\\addlinespace","\\addlinespace","","","","\\addlinespace","","","","","","","")
-
-##           )      %>%
-##     kable_styling(latex_options = c("striped", "hold_position"),
-##                   full_width = F## , font_size = 7
-##                   ) %>%
-##     add_indent(c(c(3,4,5,6,7,8,9,10,11,12,13,14,15,16, 17, 18, 19,20 ,22,23,24
-##                    ,26,27,28,29,30,31,32
-##                   ))) %>% 
-##     add_header_above(c( "" , "Exports"=3,
-##                        "Imports"=3, "Total trade"=3)) %>%
-##     footnote(general=c(
-##     "\\\\textit{Source}: Eurostat (Comext)."),general_title = " ", escape = FALSE,
-##              threeparttable = T) %>%
-##     row_spec(pos, bold = T)
-
-
-
-
-
-## writeLines(
-##   c(
-##       "\\documentclass{article}",
-##       "\\usepackage[a4paper, landscape]{geometry}",
-##       "\\usepackage{helvet}",
-##       "\\usepackage[flushleft]{threeparttable}" , 
-##                   "\\usepackage{graphicx}",
-##       "\\renewcommand{\\familydefault}{\\sfdefault}",
-##       "\\usepackage{caption}",
-##      "\\usepackage[labelfont=bf,font=large]{caption}",
-##       "\\usepackage{makecell}",
-##           "\\usepackage{booktabs}",
-## "\\usepackage{colortbl, xcolor}",
-## "\\begin{document}",
-## "\\thispagestyle{empty}",
-## "\\captionsetup[table]{labelformat=empty, textfont=bf}",
-##     ll,
-##     "\\end{document}"
-##   ),
-##   "table45.tex"
-## )
-
-
-
-## tools::texi2pdf("table45.tex", clean = TRUE)
-
-
-
-
-
-
-
-
-
-
-
-
-
+tools::texi2pdf("table1.tex", clean = TRUE)
+
+###############################################################à
+###############################################################à
+###############################################################à
+###############################################################à
+
+
+## Another table
+
+t1 <- budget_type %>%
+    select(name, budget, share) %>%
+    mutate(share=share*100) %>%
+    mutate(budget=format_col(budget, 1),
+           share=format_col(share,2)) %>%
+    mutate(share=paste(share, "%", sep="")) %>%
+    pattern_to_pattern("-", "Total EU")
+
+
+
+
+
+nn <- linebreak( c("Case Type",
+                   "Allocated Budget\n(Million EUR)", "Share of\nTotal"
+                   )  ,
+                align="c")
+
+
+t1_plot <- t1
+
+ll <- t1_plot %>%
+    search_replace( "%", "\\\\%" )  %>%
+    na_to_pattern(":") %>%
+    pattern_to_pattern("NA", ":") %>%
+    kable("latex", booktabs = T, escape = F,align=c("l", rep("r",11)),
+          col.names = nn,
+          caption = "Covid19 Allocated Budget by Case Type (Decided Cases)"
+          )      %>%
+    kable_styling(latex_options = c("striped", "hold_position"),
+                  full_width = F## , font_size = 7
+                  ) %>%
+    footnote(general=c(
+    "\\\\textit{Source}: ISIS Database."),general_title = " ", escape = FALSE,
+             threeparttable = T) ## %>%
+    ## row_spec(pos, bold = T)
+
+
+
+
+
+writeLines(
+  c(
+      "\\documentclass{article}",
+      "\\usepackage[a4paper]{geometry}",
+      "\\usepackage{helvet}",
+      "\\usepackage[flushleft]{threeparttable}" , 
+                  "\\usepackage{graphicx}",
+      "\\renewcommand{\\familydefault}{\\sfdefault}",
+      "\\usepackage{caption}",
+     "\\usepackage[labelfont=bf,font=large]{caption}",
+      "\\usepackage{makecell}",
+          "\\usepackage{booktabs}",
+"\\usepackage{colortbl, xcolor}",
+"\\begin{document}",
+"\\thispagestyle{empty}",
+"\\captionsetup[table]{labelformat=empty, textfont=bf}",
+    ll,
+    "\\end{document}"
+  ),
+  "table2.tex"
+)
+
+
+
+tools::texi2pdf("table2.tex", clean = TRUE)
+
+
+
+######################################################
+######################################################
+######################################################
+
+
+## Another table
+
+t1 <- budget_measure %>%
+    arrange(desc(budget)) %>%
+    mutate(share=share*100) %>%
+    mutate(budget=format_col(budget, 1),
+           share=format_col(share,2)) %>%
+    mutate(share=paste(share, "%", sep="")) %>%
+    move_row(1, nrow(.)) %>%
+    mutate(type_of_measure=wrapper_text(type_of_measure,65))
+
+## t1 <- t1 %>%
+##     bind_rows(t1)
+
+
+
+
+nn <- linebreak( c("Measure",
+                   "Allocated Budget\n(Million EUR)", "Share of\nTotal"
+                   )  ,
+                align="c")
+
+
+t1_plot <- t1
+
+ll <- t1_plot %>%
+    search_replace( "%", "\\\\%" )  %>%
+    search_replace( "&", "\\\\&" )  %>%    
+    na_to_pattern(":") %>%
+    pattern_to_pattern("NA", ":") %>%
+
+     ## kable("latex",longtable = T, booktabs = T, escape = F,align=c("l", rep("r",6)),
+
+    
+    kable("latex",longtable = T, booktabs = T, escape = F,align=c("l", rep("r",2)),
+          col.names = nn,
+          caption = "Covid19 Allocated Budget by Type of Measure (Decided Cases)"
+          )      %>%
+        kable_styling( position = "center",
+      latex_options = c("repeat_header","striped" ,  "hold_position"),
+                  full_width = F) %>%
+    footnote(general=c(
+    "\\\\textit{Source}: ISIS Database."),general_title = " ", escape = FALSE) ## %>%
+    ## row_spec(pos, bold = T)
+
+
+
+writeLines(
+  c(
+      "\\documentclass{article}",
+      "\\usepackage[a4paper]{geometry}",
+      "\\usepackage{longtable}",
+      "\\usepackage{helvet}",
+      "\\usepackage[flushleft]{threeparttable}" , 
+      "\\usepackage{graphicx}",
+      "\\usepackage{eurosym}",
+      "\\renewcommand{\\familydefault}{\\sfdefault}",
+      "\\usepackage[justification=centering,labelfont=bf,font=large]{caption}",
+      "\\usepackage{makecell}",
+          "\\usepackage{booktabs}",
+"\\usepackage{colortbl, xcolor}",
+"\\begin{document}",
+"\\pagestyle{empty}",
+"\\setlength{\\LTleft}{-20cm plus -1fill}",
+"\\setlength{\\LTright}{\\LTleft}",
+"\\captionsetup[table]{labelformat=empty, textfont=bf}",
+    ll,
+    "\\end{document}"
+  ),
+  "table3.tex"
+)
+
+
+
+tools::texi2pdf("table3.tex", clean = TRUE)
+
+
+    
+
+#####################################################################
+#####################################################################
+#####################################################################
+
+
+t1 <- decisions_eu %>%
+    mutate(share=share*100) %>%
+    mutate(
+           share=format_col(share,2)) %>%
+    mutate(share=paste(share, "%", sep=""))
+
+
+
+nn <- linebreak( c("Legal Basis",
+                   "Number of\nDecisions", "Share of\nTotal"
+                   )  ,
+                align="c")
+
+
+t1_plot <- t1
+
+ll <- t1_plot %>%
+    search_replace( "%", "\\\\%" )  %>%
+    search_replace( "&", "\\\\&" )  %>%    
+    na_to_pattern(":") %>%
+    pattern_to_pattern("NA", ":") %>%
+    pattern_to_pattern("NA", ":") %>%
+    kable("latex", booktabs = T, escape = F,align=c("l", rep("r",11)),
+          col.names = nn,
+          caption = "Covid19 Decisions by Legal Basis (Decided Cases)"
+          )      %>%
+    kable_styling(latex_options = c("striped", "hold_position"),
+                  full_width = F## , font_size = 7
+                  ) %>%
+    footnote(general=c(
+    "\\\\textit{Source}: ISIS Database."),general_title = " ", escape = FALSE,
+             threeparttable = T) ## %>%
+    ## row_spec(pos, bold = T)
+
+
+
+
+
+writeLines(
+  c(
+      "\\documentclass{article}",
+      "\\usepackage[a4paper]{geometry}",
+      "\\usepackage{helvet}",
+      "\\usepackage[flushleft]{threeparttable}" , 
+                  "\\usepackage{graphicx}",
+      "\\renewcommand{\\familydefault}{\\sfdefault}",
+      "\\usepackage{caption}",
+     "\\usepackage[labelfont=bf,font=large]{caption}",
+      "\\usepackage{makecell}",
+          "\\usepackage{booktabs}",
+"\\usepackage{colortbl, xcolor}",
+"\\begin{document}",
+"\\thispagestyle{empty}",
+"\\captionsetup[table]{labelformat=empty, textfont=bf}",
+    ll,
+    "\\end{document}"
+  ),
+  "table4.tex"
+)
+
+
+
+tools::texi2pdf("table4.tex", clean = TRUE)
+
+###########################################################################
+###########################################################################
+###########################################################################
+
+
+
+t1 <- measures_covid %>%
+    mutate(share=share*100) %>%
+    mutate(
+           share=format_col(share,2)) %>%
+    mutate(share=paste(share, "%", sep=""))
+
+
+
+nn <- linebreak( c("Legal Basis",
+                   "Number of\nMeasures", "Share of\nTotal"
+                   )  ,
+                align="c")
+
+
+t1_plot <- t1
+
+ll <- t1_plot %>%
+    search_replace( "%", "\\\\%" )  %>%
+    search_replace( "&", "\\\\&" )  %>%    
+    na_to_pattern(":") %>%
+    pattern_to_pattern("NA", ":") %>%
+    pattern_to_pattern("NA", ":") %>%
+    kable("latex", booktabs = T, escape = F,align=c("l", rep("r",11)),
+          col.names = nn,
+          caption = "Covid19 Measures by Legal Basis (Decided Cases)"
+          )      %>%
+    kable_styling(latex_options = c("striped", "hold_position"),
+                  full_width = F## , font_size = 7
+                  ) %>%
+    footnote(general=c(
+    "\\\\textit{Source}: ISIS Database."),general_title = " ", escape = FALSE,
+             threeparttable = T) ## %>%
+    ## row_spec(pos, bold = T)
+
+
+
+
+
+writeLines(
+  c(
+      "\\documentclass{article}",
+      "\\usepackage[a4paper]{geometry}",
+      "\\usepackage{helvet}",
+      "\\usepackage[flushleft]{threeparttable}" , 
+                  "\\usepackage{graphicx}",
+      "\\renewcommand{\\familydefault}{\\sfdefault}",
+      "\\usepackage{caption}",
+     "\\usepackage[labelfont=bf,font=large]{caption}",
+      "\\usepackage{makecell}",
+          "\\usepackage{booktabs}",
+"\\usepackage{colortbl, xcolor}",
+"\\begin{document}",
+"\\thispagestyle{empty}",
+"\\captionsetup[table]{labelformat=empty, textfont=bf}",
+    ll,
+    "\\end{document}"
+  ),
+  "table5.tex"
+)
+
+
+
+tools::texi2pdf("table5.tex", clean = TRUE)
+
+
+######################################################################
+######################################################################
+######################################################################
+######################################################################
+
+
+temp <- tibble(x=c("NO", "YES", "Total"), name=c("Under assessment", "Decided cases", "Total"))
+
+t1 <- sa_n_pn %>%
+    left_join(y=temp, by=c("decided"="x")) %>%
+    select(name, nn, share)%>%
+    mutate(share=share*100) %>%
+    mutate(
+           share=format_col(share,2)) %>%
+    mutate(share=paste(share, "%", sep=""))
+
+
+
+nn <- linebreak( c("Case Assessment Status",
+                   "Number of\nCases", "Share of\nTotal"
+                   )  ,
+                align="c")
+
+
+t1_plot <- t1
+
+ll <- t1_plot %>%
+    search_replace( "%", "\\\\%" )  %>%
+    search_replace( "&", "\\\\&" )  %>%    
+    na_to_pattern(":") %>%
+    pattern_to_pattern("NA", ":") %>%
+    pattern_to_pattern("NA", ":") %>%
+    kable("latex", booktabs = T, escape = F,align=c("l", rep("r",11)),
+          col.names = nn,
+          caption = "SA Case Assessment Pipeline\\\\Overview N and PN Cases"
+          )      %>%
+    kable_styling(latex_options = c("striped", "hold_position"),
+                  full_width = F## , font_size = 7
+                  ) %>%
+    footnote(general=c(
+    "\\\\textit{Source}: ISIS Database."),general_title = " ", escape = FALSE,
+             threeparttable = T) ## %>%
+    ## row_spec(pos, bold = T)
+
+
+
+
+
+writeLines(
+  c(
+      "\\documentclass{article}",
+      "\\usepackage[a4paper]{geometry}",
+      "\\usepackage{helvet}",
+      "\\usepackage[flushleft]{threeparttable}" , 
+                  "\\usepackage{graphicx}",
+      "\\renewcommand{\\familydefault}{\\sfdefault}",
+      "\\usepackage{caption}",
+     "\\usepackage[labelfont=bf,font=large]{caption}",
+      "\\usepackage{makecell}",
+          "\\usepackage{booktabs}",
+"\\usepackage{colortbl, xcolor}",
+"\\begin{document}",
+"\\thispagestyle{empty}",
+"\\captionsetup[table]{labelformat=empty, textfont=bf}",
+    ll,
+    "\\end{document}"
+  ),
+  "table6.tex"
+)
+
+
+
+tools::texi2pdf("table6.tex", clean = TRUE)
+
+#######################################################################
+#######################################################################
+#######################################################################
+#######################################################################
+
+
+
+
+t1 <- sa_n_pn_unit %>%
+    ## left_join(y=temp, by=c("decided"="x")) %>%
+    ## select(name, nn, share)%>%
+    mutate(share=share*100) %>%
+    mutate(
+           share=format_col(share,2)) %>%
+    mutate(share=paste(share, "%", sep=""))
+
+
+
+nn <- linebreak( c("Responsible Unit",
+                   "Number of\nCases", "Share of\nTotal"
+                   )  ,
+                align="c")
+
+
+t1_plot <- t1
+
+ll <- t1_plot %>%
+    search_replace( "%", "\\\\%" )  %>%
+    search_replace( "&", "\\\\&" )  %>%    
+    na_to_pattern(":") %>%
+    pattern_to_pattern("NA", ":") %>%
+    pattern_to_pattern("NA", ":") %>%
+    kable("latex", booktabs = T, escape = F,align=c("l", rep("r",11)),
+          col.names = nn,
+          caption = "SA Case Assessment Pipeline\\\\Overview N and PN Cases"
+          )      %>%
+    kable_styling(latex_options = c("striped", "hold_position"),
+                  full_width = F## , font_size = 7
+                  ) %>%
+    footnote(general=c(
+    "\\\\textit{Source}: ISIS Database."),general_title = " ", escape = FALSE,
+             threeparttable = T) ## %>%
+    ## row_spec(pos, bold = T)
+
+
+
+
+
+writeLines(
+  c(
+      "\\documentclass{article}",
+      "\\usepackage[a4paper]{geometry}",
+      "\\usepackage{helvet}",
+      "\\usepackage[flushleft]{threeparttable}" , 
+                  "\\usepackage{graphicx}",
+      "\\renewcommand{\\familydefault}{\\sfdefault}",
+      "\\usepackage{caption}",
+     "\\usepackage[labelfont=bf,font=large]{caption}",
+      "\\usepackage{makecell}",
+          "\\usepackage{booktabs}",
+"\\usepackage{colortbl, xcolor}",
+"\\begin{document}",
+"\\thispagestyle{empty}",
+"\\captionsetup[table]{labelformat=empty, textfont=bf}",
+    ll,
+    "\\end{document}"
+  ),
+  "table7.tex"
+)
+
+
+
+tools::texi2pdf("table7.tex", clean = TRUE)
+
+
+
+
+
+#######################################################################
+#######################################################################
+#######################################################################
+#######################################################################
+
+
+t1 <- budget_by_beneficiary_sector %>%
+    mutate(share=share*100) %>%
+    mutate(
+           share=format_col(share,2)) %>%
+    mutate(share=paste(share, "%", sep="")) %>%
+    mutate(budget=format_col(budget,1))
+    
+
+
+
+
+
+
+
+nn <- linebreak( c("Sector",
+                   "Allocated Budget\n(Million EUR)", "Share of\nTotal"
+                   )  ,
+                align="c")
+
+
+t1_plot <- t1
+
+ll <- t1_plot %>%
+    search_replace( "%", "\\\\%" )  %>%
+    search_replace( "&", "\\\\&" )  %>%    
+    na_to_pattern(":") %>%
+    pattern_to_pattern("NA", ":") %>%
+    pattern_to_pattern("NA", ":") %>%
+    kable("latex",longtable = T, booktabs = T, escape = F,align=c("l", rep("r",11)),
+          col.names = nn,
+          caption = "Covid19 Allocated Budget by Sector"
+          )      %>%
+    kable_styling(latex_options = c("striped", "hold_position"),
+                  full_width = F## , font_size = 7
+                  ) %>%
+    footnote(general=c(
+    "\\\\textit{Source}: ISIS Database."),general_title = " ", escape = FALSE## ,
+             ## threeparttable = T
+    ) ## %>%
+    ## row_spec(pos, bold = T)
+
+
+
+
+
+writeLines(
+  c(
+      "\\documentclass{article}",
+      "\\usepackage[a4paper]{geometry}",
+      "\\usepackage{longtable}",
+      "\\usepackage{helvet}",
+      "\\usepackage[flushleft]{threeparttable}" , 
+      "\\usepackage{graphicx}",
+      "\\usepackage{eurosym}",
+      "\\renewcommand{\\familydefault}{\\sfdefault}",
+      "\\usepackage[justification=centering,labelfont=bf,font=large]{caption}",
+      "\\usepackage{makecell}",
+          "\\usepackage{booktabs}",
+"\\usepackage{colortbl, xcolor}",
+"\\begin{document}",
+"\\pagestyle{empty}",
+"\\setlength{\\LTleft}{-20cm plus -1fill}",
+"\\setlength{\\LTright}{\\LTleft}",
+"\\captionsetup[table]{labelformat=empty, textfont=bf}",
+    ll,
+    "\\end{document}"
+  ),
+  "table8.tex"
+)
+
+
+
+
+
+
+
+tools::texi2pdf("table8.tex", clean = TRUE)
+
+
+##################################################################
+##################################################################
+##################################################################
+##################################################################
+
+
+
+t1 <- budget_by_beneficiary_type %>%
+    mutate(share=share*100) %>%
+    mutate(
+           share=format_col(share,2)) %>%
+    mutate(share=paste(share, "%", sep="")) %>%
+    mutate(budget=format_col(budget,1))
+
+
+
+
+
+
+
+
+
+
+nn <- linebreak( c("Beneficiary",
+                   "Allocated Budget\n(Million EUR)", "Share of\nTotal"
+                   )  ,
+                align="c")
+
+
+t1_plot <- t1
+
+ll <- t1_plot %>%
+    search_replace( "%", "\\\\%" )  %>%
+    search_replace( "&", "\\\\&" )  %>%    
+    na_to_pattern(":") %>%
+    pattern_to_pattern("NA", ":") %>%
+    pattern_to_pattern("NA", ":") %>%
+    kable("latex", booktabs = T, escape = F,align=c("l", rep("r",11)),
+          col.names = nn,
+          caption = "Covid19 Allocated Budget by Type of Beneficiary"
+          )      %>%
+    kable_styling(latex_options = c("striped", "hold_position"),
+                  full_width = F## , font_size = 7
+                  ) %>%
+    footnote(general=c(
+    "\\\\textit{Source}: ISIS Database."),general_title = " ", escape = FALSE,
+             threeparttable = T
+    ) ## %>%
+    ## row_spec(pos, bold = T)
+
+
+
+
+
+writeLines(
+  c(
+      "\\documentclass{article}",
+      "\\usepackage[a4paper]{geometry}",
+      "\\usepackage{longtable}",
+      "\\usepackage{helvet}",
+      "\\usepackage[flushleft]{threeparttable}" , 
+      "\\usepackage{graphicx}",
+      "\\usepackage{eurosym}",
+      "\\renewcommand{\\familydefault}{\\sfdefault}",
+      "\\usepackage[justification=centering,labelfont=bf,font=large]{caption}",
+      "\\usepackage{makecell}",
+          "\\usepackage{booktabs}",
+"\\usepackage{colortbl, xcolor}",
+"\\begin{document}",
+"\\pagestyle{empty}",
+"\\setlength{\\LTleft}{-20cm plus -1fill}",
+"\\setlength{\\LTright}{\\LTleft}",
+"\\captionsetup[table]{labelformat=empty, textfont=bf}",
+    ll,
+    "\\end{document}"
+  ),
+  "table9.tex"
+)
+
+
+
+
+
+
+
+tools::texi2pdf("table9.tex", clean = TRUE)
+
+##############################################################à
+##############################################################à
+##############################################################à
+##############################################################à
+##############################################################à
+
+
+t1 <- duration_stat_basis %>%
+    select(legal_basis, mean_duration) %>%
+    mutate(mean_duration=format_col(mean_duration, 1))
+
+
+
+
+nn <- linebreak( c("Legal Basis",
+                   "Number of Days"
+                   )  ,
+                align="c")
+
+
+t1_plot <- t1
+
+ll <- t1_plot %>%
+    search_replace( "%", "\\\\%" )  %>%
+    search_replace( "&", "\\\\&" )  %>%    
+    na_to_pattern(":") %>%
+    pattern_to_pattern("NA", ":") %>%
+    pattern_to_pattern("NA", ":") %>%
+    kable("latex", booktabs = T, escape = F,align=c("l", rep("r",11)),
+          col.names = nn,
+          caption = "Average Number of Days to Process a  Decision\\\\by Legal Basis"
+          )      %>%
+    kable_styling(latex_options = c("striped", "hold_position"),
+                  full_width = F## , font_size = 7
+                  ) %>%
+    footnote(general=c(
+    "\\\\textit{Source}: ISIS Database."),general_title = " ", escape = FALSE,
+             threeparttable = T
+    ) ## %>%
+    ## row_spec(pos, bold = T)
+
+
+
+
+
+writeLines(
+  c(
+      "\\documentclass{article}",
+      "\\usepackage[a4paper]{geometry}",
+      "\\usepackage{longtable}",
+      "\\usepackage{helvet}",
+      "\\usepackage[flushleft]{threeparttable}" , 
+      "\\usepackage{graphicx}",
+      "\\usepackage{eurosym}",
+      "\\renewcommand{\\familydefault}{\\sfdefault}",
+      "\\usepackage[justification=centering,labelfont=bf,font=large]{caption}",
+      "\\usepackage{makecell}",
+          "\\usepackage{booktabs}",
+"\\usepackage{colortbl, xcolor}",
+"\\begin{document}",
+"\\pagestyle{empty}",
+"\\setlength{\\LTleft}{-20cm plus -1fill}",
+"\\setlength{\\LTright}{\\LTleft}",
+"\\captionsetup[table]{labelformat=empty, textfont=bf}",
+    ll,
+    "\\end{document}"
+  ),
+  "table10.tex"
+)
+
+
+
+
+
+
+
+tools::texi2pdf("table10.tex", clean = TRUE)
+
+############################################################à
+############################################################à
+############################################################à
+############################################################à
+
+
+
+
+
+t1 <- duration_stat_measure %>%
+    select(type_of_measure, mean_duration) %>%
+    mutate(mean_duration=format_col(mean_duration, 1))%>%
+    mutate(type_of_measure=wrapper_text(type_of_measure,65))
+
+
+
+nn <- linebreak( c("Type of Measure",
+                   "Number of Days"
+                   )  ,
+                align="c")
+
+
+t1_plot <- t1
+
+ll <- t1_plot %>%
+    search_replace( "%", "\\\\%" )  %>%
+    search_replace( "&", "\\\\&" )  %>%    
+    na_to_pattern(":") %>%
+    pattern_to_pattern("NA", ":") %>%
+
+     ## kable("latex",longtable = T, booktabs = T, escape = F,align=c("l", rep("r",6)),
+
+    
+    kable("latex",longtable = T, booktabs = T, escape = F,align=c("l", rep("r",2)),
+          col.names = nn,
+          caption = "Average Number of Days to Process a  Decision\\\\by Legal Basis"
+          )      %>%
+        kable_styling( position = "center",
+      latex_options = c("repeat_header","striped" ,  "hold_position"),
+                  full_width = F) %>%
+    footnote(general=c(
+    "\\\\textit{Source}: ISIS Database."),general_title = " ", escape = FALSE) ## %>%
+    ## row_spec(pos, bold = T)
+
+
+
+writeLines(
+  c(
+      "\\documentclass{article}",
+      "\\usepackage[a4paper]{geometry}",
+      "\\usepackage{longtable}",
+      "\\usepackage{helvet}",
+      "\\usepackage[flushleft]{threeparttable}" , 
+      "\\usepackage{graphicx}",
+      "\\usepackage{eurosym}",
+      "\\renewcommand{\\familydefault}{\\sfdefault}",
+      "\\usepackage[justification=centering,labelfont=bf,font=large]{caption}",
+      "\\usepackage{makecell}",
+          "\\usepackage{booktabs}",
+"\\usepackage{colortbl, xcolor}",
+"\\begin{document}",
+"\\pagestyle{empty}",
+"\\setlength{\\LTleft}{-20cm plus -1fill}",
+"\\setlength{\\LTright}{\\LTleft}",
+"\\captionsetup[table]{labelformat=empty, textfont=bf}",
+    ll,
+    "\\end{document}"
+  ),
+  "table11.tex"
+)
+
+
+
+tools::texi2pdf("table11.tex", clean = TRUE)
+
+###################################################################
+###################################################################
+###################################################################
+###################################################################
+
+
+
+temp <- tibble(x=c("TF1", "TF2", "TF3", "TF6", "TF7", "TF8", "TF9",
+                   "TF10", "TF11", "TF12", "Total"),
+               name=c("3.1 Limited amount of aid", "3.2 Aid in the form of guarantees on loans", "3.3 Aid in the form of subsidised interest rates for loans",
+                      "3.6 Aid for COVID-19 relevant research and development",
+          "3.7 Investment aid for testing and upscaling infrastructures",
+          "3.8 Investment aid for the production of COVID-19 relevant products",
+          "3.9 Aid in form of deferrals of tax and or social security contributions",
+          "3.10 Aid in form of wage subsidies for employees to avoid lay-offs during the COVID-19 outbreak",
+          "3.11 Recapitalisation measures for non-financial undertakings",
+          "3.12 Support for uncovered fixed costs",
+          "Total")
+
+               )
+
+
+
+
+t1 <- chapters_stat_fin %>%
+    left_join(y=temp, by=c("TF_chapter"="x")) %>%
+    select(name, value, share) %>%
+    mutate(share=share*100) %>%
+    mutate(
+           share=format_col(share,2)) %>%
+    mutate(share=paste(share, "%", sep="")) %>%
+    mutate(name=wrapper_text(name, 65))
+
+nn <- linebreak( c("Chapter Description",
+                   "Frequency", "Share of\nTotal"
+                   )  ,
+                align="c")
+
+
+t1_plot <- t1
+
+ll <- t1_plot %>%
+    search_replace( "%", "\\\\%" )  %>%
+    search_replace( "&", "\\\\&" )  %>%    
+    na_to_pattern(":") %>%
+    pattern_to_pattern("NA", ":") %>%
+    pattern_to_pattern("NA", ":") %>%
+    kable("latex", booktabs = T, escape = F,align=c("l", rep("r",11)),
+          col.names = nn,
+          caption = "Frequency of Use of Temporary Framework Chapters"
+          )      %>%
+    kable_styling(latex_options = c("striped", "hold_position"),
+                  full_width = F## , font_size = 7
+                  ) %>%
+    footnote(general=c(
+    "\\\\textit{Source}: ISIS Database."),general_title = " ", escape = FALSE,
+             threeparttable = T
+    ) ## %>%
+    ## row_spec(pos, bold = T)
+
+
+
+
+
+writeLines(
+  c(
+      "\\documentclass{article}",
+      "\\usepackage[a4paper]{geometry}",
+      "\\usepackage{longtable}",
+      "\\usepackage{helvet}",
+      "\\usepackage[flushleft]{threeparttable}" , 
+      "\\usepackage{graphicx}",
+      "\\usepackage{eurosym}",
+      "\\renewcommand{\\familydefault}{\\sfdefault}",
+      "\\usepackage[justification=centering,labelfont=bf,font=large]{caption}",
+      "\\usepackage{makecell}",
+          "\\usepackage{booktabs}",
+"\\usepackage{colortbl, xcolor}",
+"\\begin{document}",
+"\\pagestyle{empty}",
+"\\setlength{\\LTleft}{-20cm plus -1fill}",
+"\\setlength{\\LTright}{\\LTleft}",
+"\\captionsetup[table]{labelformat=empty, textfont=bf}",
+    ll,
+    "\\end{document}"
+  ),
+  "table12.tex"
+)
+
+
+
+
+
+
+
+tools::texi2pdf("table12.tex", clean = TRUE)
+
+
+
+
+
+
+###join all the docs
+
+system("pdftk  table1.pdf table2.pdf table3.pdf table4.pdf table5.pdf table6.pdf  table7.pdf   table8.pdf table9.pdf table10.pdf table11.pdf table12.pdf   cat output assembled.pdf   " )