Commit: ed96674ff71adc2d4830b2864b3e9b6216a8ccfb - myprojects-hg-reborn (hg)

Commit MetaInfo

• Revision: ed96674ff71adc2d4830b2864b3e9b6216a8ccfb (tree)
• Zeit: 2021-10-12 00:25:23
• Autor: Lorenzo Isella <lorenzo.isella@gmai...>
• Commiter: Lorenzo Isella

Log Message

I am transitioning the code from PDF to word tables. Check carefully!

Ändern Zusammenfassung

• modified: R-codes/process_covid_tracker.R

Diff

diff -r 050723f404e6 -r ed96674ff71a R-codes/process_covid_tracker.R
--- a/R-codes/process_covid_tracker.R	Mon Oct 11 15:28:33 2021 +0200
+++ b/R-codes/process_covid_tracker.R	Mon Oct 11 17:25:23 2021 +0200
@@ -1,6 +1,6 @@
 rm(list=ls())
 
-## last saved on  Time-stamp: "2021-10-11 12:53:20 lorenzo"
+## last saved on  Time-stamp: "2021-10-11 17:19:09 lorenzo"
 
 
 library(tidyverse)
@@ -11,6 +11,8 @@
 library(formattable)
 library(stringi)
 library(kableExtra)
+library(huxtable)
+library(flextable)
 
 source("/home/lorenzo/myprojects-hg/R-codes/stat_lib.R")
 
@@ -41,7 +43,7 @@
 year_focus <- c(2019,2020,2021)
 
 
-pdf_generation <- 1 ## whether I should generate the pdf files or not
+table_generation <- 1 ## whether I should generate the pdf files or not
 
 names <- tibble(iso2= c("AT",    "BE",    "BG" ,
                         "CY"  ,  "CZ" ,   "DE",
@@ -293,7 +295,8 @@
     filter(complete.cases(.)) %>%
     mutate(share=budget/sum(budget)) %>%
     arrange(desc(budget))%>%
-    add_total(nrow(.)+1)
+    add_total(nrow(.)+1) %>%
+    filter(beneficary_sector!=" ", beneficary_sector!=0)
 
 
 ### budget broken by MS and beneficiary sector
@@ -323,7 +326,9 @@
     filter(complete.cases(.)) %>%
     mutate(share=budget/sum(budget)) %>%
     arrange(desc(budget))%>%
-    add_total(nrow(.)+1)
+    add_total(nrow(.)+1)%>%
+    filter(beneficary_type!=" ", beneficary_type!=0)
+
 
 
 
@@ -1244,7 +1249,7 @@
 ##########################################################################
 ##########################################################################
 
-if (pdf_generation==1){
+if (table_generation==1){
 
 ###Now I generate some table
 
@@ -1260,84 +1265,136 @@
 
 t1 <- budget_test %>%
     left_join(gdp, by=c("member_state_2_letter_code"="country")) %>%
-    mutate(gdp=budget/gdp*100) %>%
-    mutate(gdp=format_col(gdp,1)) %>%
+    mutate(gdp=budget/gdp## *100
+           ) %>%
+    ## mutate(gdp=format_col(gdp,1)) %>%
     left_join(y=decisions_test) %>%
     left_join(y=count_am, by=c("member_state_2_letter_code"="member_state_of_amendment")) %>%
     left_join(y=temp2, by=c("member_state_2_letter_code"))
 
 
-t1_plot <-  t1 %>%
-    mutate(share=share*100) %>%
-    mutate(budget=format_col(budget,1)) %>%
-    mutate(share=round(share,1)) %>%
-    mutate(share=format_col(share,1)) %>%
-    mutate(share=paste(share,"%", sep="")) %>%
-    mutate(gdp=paste(gdp,"%", sep="")) %>% 
-    mutate(mean_duration=format_col(mean_duration,1),
-           median_duration=format_col(median_duration,1)
-           ) %>%
-    left_join(y=names, by=c("member_state_2_letter_code"="iso2")) %>%
-    select(-member_state_2_letter_code) %>%
-    select(country, everything())
-
-
-
-
-nn <- linebreak( c("Member State",
-                   "Allocated Budget\n(Million EUR)", "Share of\nTotal",
-                   "Share of\nGDP",
-                   "Number of\nDecisions", "Number of\nAmendments",
-                   "Mean Duration\n(calendar days)", "Median Duration\n(calendar days)")  ,
-                align="c")
-
-
-
-ll <- t1_plot %>%
-    search_replace( "%", "\\\\%" )  %>%
-    ## na_char_to_pattern(":") %>%
-    ## pattern_to_pattern("NA", ":") %>%
-    kable("latex", booktabs = T, escape = F,align=c("l", rep("r",11)),
-          col.names = nn,
-          caption = "EU Wide Statistics on Covid19 State Aid Measures"
-          )      %>%
-    kable_styling(latex_options = c("striped", "hold_position"),
-                  full_width = F## , font_size = 7
-                  ) %>%
-    footnote(general=c(
-    "\\\\textit{Source}: COVID-19 State aid tracker."),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}"
-  ),
-  "table1.tex"
-)
-
-
-
-tools::texi2pdf("table1.tex", clean = TRUE)
+
+
+### If you want to use huxtable to generate the plots.
+
+##     ht1 <- t1  %>%
+##         mutate(budget=format_col(budget,1)) %>% 
+##         set_colnames(c("Member State",
+##                    "Allocated Budget (Million EUR)", "Share of Total",
+##                    "Share of GDP",
+##                    "Number of Decisions", "Number of Amendments",
+##                    "Mean Duration (calendar days)", "Median Duration (calendar days)")) %>%
+##         as_hux() %>%
+##         set_font_size(8) %>% 
+##     theme_grey( header_col = F) %>%
+##         set_bold(everywhere,1) %>%
+##         set_align(everywhere, 2, "right") %>% 
+##     set_width(1.35) %>%
+##         set_number_format(everywhere, c(3,4), fmt_percent(2) )  %>%
+##         set_number_format(everywhere, c(7,8), 1 ) 
+
+
+## quick_docx(ht1, file = "table1_hux.docx", open=F)
+
+
+
+
+    fl1 <- t1 %>% flextable() %>%
+    ## add_header_row(values = c("some measures", "other measures") )%>%
+    set_header_labels(member_state_2_letter_code="Member State",
+                      budget="Allocated Budget (mio €)",
+                      share="Share of Total",
+                      gdp="Share of GDP",
+                      n_decisions="Number of Decisions",
+                      n_amendments="Number of Amendments",
+                      mean_duration="Mean Duration (calendar days)",
+                      median_duration="Median Duration (calendar days)") %>%      bold(j = 1, bold = TRUE) %>% 
+    theme_zebra() %>%
+    fontsize(part = "all", size = 8)  %>%
+    font(part="all", fontname = "Verdana") %>% 
+    colformat_double(big.mark = " ") %>%
+    set_formatter(share = function(x) sprintf( "%.1f%%", x*100 ) ) %>%
+    set_formatter(gdp = function(x) sprintf( "%.1f%%", x*100 ) ) %>%
+        ## width(width = 1.) %>%
+        FitFlextableToPage() %>% 
+        set_caption(caption = "EU Wide Statistics on Covid19 State Aid Measures")
+
+    save_as_docx(fl1, path="table1_flex.docx" )
+
+
+## If I want to use kablextra to generate the plot.    
+
+## nn <- linebreak( c("Member State",
+##                    "Allocated Budget\n(Million EUR)", "Share of\nTotal",
+##                    "Share of\nGDP",
+##                    "Number of\nDecisions", "Number of\nAmendments",
+##                    "Mean Duration\n(calendar days)", "Median Duration\n(calendar days)")  ,
+##                 align="c")
+
+
+
+## t1_plot <-  t1 %>%
+##     mutate(share=share*100) %>%
+##     mutate(budget=format_col(budget,1)) %>%
+##     mutate(share=round(share,1)) %>%
+##     mutate(share=format_col(share,1)) %>%
+##     mutate(share=paste(share,"%", sep="")) %>%
+##     mutate(gdp=paste(gdp,"%", sep="")) %>% 
+##     mutate(mean_duration=format_col(mean_duration,1),
+##            median_duration=format_col(median_duration,1)
+##            ) %>%
+##     left_join(y=names, by=c("member_state_2_letter_code"="iso2")) %>%
+##     select(-member_state_2_letter_code) %>%
+##     select(country, everything())
+
+    
+
+
+## ll <- t1_plot %>%
+##     search_replace( "%", "\\\\%" )  %>%
+##     ## na_char_to_pattern(":") %>%
+##     ## pattern_to_pattern("NA", ":") %>%
+##     kable("latex", booktabs = T, escape = F,align=c("l", rep("r",11)),
+##           col.names = nn,
+##           caption = "EU Wide Statistics on Covid19 State Aid Measures"
+##           )      %>%
+##     kable_styling(latex_options = c("striped", "hold_position"),
+##                   full_width = F## , font_size = 7
+##                   ) %>%
+##     footnote(general=c(
+##     "\\\\textit{Source}: COVID-19 State aid tracker."),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}"
+##   ),
+##   "table1.tex"
+## )
+
+
+
+## tools::texi2pdf("table1.tex", clean = TRUE)
 
 ###############################################################à
 ###############################################################à
@@ -1349,69 +1406,98 @@
 
 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="")) %>%
+    ## 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}: COVID-19 State aid tracker."),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)
+    fl2 <- t1 %>% flextable() %>%
+    ## add_header_row(values = c("some measures", "other measures") )%>%
+    set_header_labels(name="Case Type",
+                      budget="Allocated Budget (mio €)",
+                      share="Share of Total") %>%     
+        theme_zebra() %>%
+        bold(j = 1, bold = TRUE) %>% 
+    fontsize(part = "all", size = 8)  %>%
+    font(part="all", fontname = "Verdana")  %>% 
+    colformat_double(big.mark = " ") %>%
+    set_formatter(share = function(x) sprintf( "%.2f%%", x*100 ) ) %>%
+    ## set_formatter(gdp = function(x) sprintf( "%.1f%%", x*100 ) ) %>%
+        ## width(width = 1.) %>%
+        FitFlextableToPage() %>% 
+        set_caption(caption = "Covid19 Allocated Budget by Case Type (Decided Cases)")
+
+
+    save_as_docx(fl2, path="table2_flex.docx" )
+
+
+
+## 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}: COVID-19 State aid tracker."),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)
 
 
 
@@ -1422,79 +1508,119 @@
 
 ## 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}: COVID-19 State aid tracker."),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 <- budget_measure %>%
+    arrange(desc(budget))
+
+
+    fl3 <- t1 %>% flextable() %>%
+    ## add_header_row(values = c("some measures", "other measures") )%>%
+    set_header_labels(type_of_measure="Measure",
+                      budget="Allocated Budget (mio €)",
+                      share="Share of Total") %>%     
+        theme_zebra() %>%
+        bold(j = 1, bold = TRUE) %>% 
+    fontsize(part = "all", size = 8)  %>%
+    font(part="all", fontname = "Verdana")  %>% 
+    colformat_double(big.mark = " ") %>%
+    set_formatter(share = function(x) sprintf( "%.2f%%", x*100 ) ) %>%
+    ## set_formatter(gdp = function(x) sprintf( "%.1f%%", x*100 ) ) %>%
+        ## width(width = 1.7) %>%
+        FitFlextableToPage() %>% 
+        set_caption(caption = "Covid19 Allocated Budget by Case Type (Decided Cases)") 
+
+
+
+    save_as_docx(fl3, path="table3_flex.docx" )
+
+
+
+
+
+    ##  %>%
+    ## 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 <- 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}: COVID-19 State aid tracker."),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)
 
 
     
@@ -1504,139 +1630,208 @@
 #####################################################################
 
 
-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}: COVID-19 State aid tracker."),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 <- decisions_eu %>%
+        mutate(share=round_preserve_sum(share,4))
+
+    ## %>%
+    ## mutate(share=share*100) %>%
+    ## mutate(
+    ##        share=format_col(share,2)) %>%
+    ## mutate(share=paste(share, "%", sep=""))
+
+
+
+    fl4 <- t1 %>% flextable() %>%
+    ## add_header_row(values = c("some measures", "other measures") )%>%
+    set_header_labels(legal_basis="Legal Basis",
+                      n_decisions="Number of Decisions",
+                      share="Share of Total") %>%     
+        theme_zebra() %>%
+        bold(j = 1, bold = TRUE) %>% 
+    fontsize(part = "all", size = 8)  %>%
+    font(part="all", fontname = "Verdana")  %>% 
+    colformat_double(big.mark = " ") %>%
+    set_formatter(share = function(x) sprintf( "%.2f%%", x*100 ) ) %>%
+    ## set_formatter(gdp = function(x) sprintf( "%.1f%%", x*100 ) ) %>%
+        ## width(width = 1.7) %>%
+        FitFlextableToPage() %>% 
+        set_caption(caption = "Covid19 Decisions by Legal Basis (Decided Cases)") 
+
+
+
+    save_as_docx(fl4, path="table4_flex.docx" )
+
+
+    
+
+## 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}: COVID-19 State aid tracker."),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}: COVID-19 State aid tracker."),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)
+    t1 <- measures_covid %>%
+        mutate(share=round_preserve_sum(share,4))
+
+    fl5 <- t1 %>% flextable() %>%
+    ## add_header_row(values = c("some measures", "other measures") )%>%
+    set_header_labels(legal_basis="Legal Basis",
+                      n_measures="Number of Measures",
+                      share="Share of Total") %>%     
+        theme_zebra() %>%
+        bold(j = 1, bold = TRUE) %>% 
+    fontsize(part = "all", size = 8)  %>%
+    font(part="all", fontname = "Verdana")  %>% 
+    colformat_double(big.mark = " ") %>%
+    set_formatter(share = function(x) sprintf( "%.2f%%", x*100 ) ) %>%
+    ## set_formatter(gdp = function(x) sprintf( "%.1f%%", x*100 ) ) %>%
+        ## width(width = 1.7) %>%
+        FitFlextableToPage() %>% 
+        set_caption(caption = "Covid19 Measures by Legal Basis (Decided Cases)") 
+
+
+
+    save_as_docx(fl5, path="table5_flex.docx" )
+
+
+
+
+    
+    ## %>%
+    ## mutate(share=share*100) %>%
+    ## mutate(
+    ##        share=format_col(share,2)) %>%
+    ## mutate(share=paste(share, "%", sep=""))
+
+
+    
+
+## 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}: COVID-19 State aid tracker."),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)
 
 
 ######################################################################
@@ -1649,69 +1844,98 @@
 
 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}: COVID-19 State aid tracker."),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)
+    select(name, nn, share) %>%
+    mutate(share=round_preserve_sum(share,3))
+
+    fl6 <- t1 %>% flextable() %>%
+    ## add_header_row(values = c("some measures", "other measures") )%>%
+    set_header_labels(name="Case Assessment Status",
+                      nn="Number of Cases",
+                      share="Share of Total") %>%     
+        theme_zebra() %>%
+        bold(j = 1, bold = TRUE) %>% 
+    fontsize(part = "all", size = 8)  %>%
+    font(part="all", fontname = "Verdana")  %>% 
+    colformat_double(big.mark = " ") %>%
+    set_formatter(share = function(x) sprintf( "%.1f%%", x*100 ) ) %>%
+    ## set_formatter(gdp = function(x) sprintf( "%.1f%%", x*100 ) ) %>%
+        ## width(width = 1.7) %>%
+        FitFlextableToPage() %>% 
+        set_caption(caption = "SA Case Assessment Pipeline
+Overview N and PN Cases") 
+
+
+
+    save_as_docx(fl6, path="table6_flex.docx" )
+
+
+    
+    
+## 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}: COVID-19 State aid tracker."),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)
 
 #######################################################################
 #######################################################################
@@ -1721,71 +1945,100 @@
 
 
 
-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}: COVID-19 State aid tracker."),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 <- sa_n_pn_unit %>%
+        mutate(share=round_preserve_sum(share,4))
+
+
+
+    fl7 <- t1 %>% flextable() %>%
+    ## add_header_row(values = c("some measures", "other measures") )%>%
+    set_header_labels(responsible_unit="Responsible Unit",
+                      nn="Number of Cases",
+                      share="Share of Total") %>%     
+        theme_zebra() %>%
+        bold(j = 1, bold = TRUE) %>% 
+    fontsize(part = "all", size = 8)  %>%
+    font(part="all", fontname = "Verdana")  %>% 
+    colformat_double(big.mark = " ") %>%
+    set_formatter(share = function(x) sprintf( "%.2f%%", x*100 ) ) %>%
+    ## set_formatter(gdp = function(x) sprintf( "%.1f%%", x*100 ) ) %>%
+        ## width(width = 1.7) %>%
+        FitFlextableToPage() %>% 
+        set_caption(caption = "SA Case Assessment Pipeline
+Overview N and PN Cases") 
+
+
+
+    save_as_docx(fl7, path="table7_flex.docx" )
+
+
+    
+## 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}: COVID-19 State aid tracker."),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)
 
 
 
@@ -1797,83 +2050,114 @@
 #######################################################################
 
 
-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))
+
+    t1 <- budget_by_beneficiary_sector  %>%
+        mutate(share=round_preserve_sum(share,4))
+
+
+
+
+    fl8 <- t1 %>% flextable() %>%
+    ## add_header_row(values = c("some measures", "other measures") )%>%
+    set_header_labels(beneficary_sector="Sector",
+                      budget="Allocated Budget (mio €)",
+                      share="Share of Total") %>%     
+        theme_zebra() %>%
+        bold(j = 1, bold = TRUE) %>% 
+    fontsize(part = "all", size = 8)  %>%
+    font(part="all", fontname = "Verdana")  %>% 
+    colformat_double(big.mark = " ") %>%
+    set_formatter(share = function(x) sprintf( "%.2f%%", x*100 ) ) %>%
+    ## set_formatter(gdp = function(x) sprintf( "%.1f%%", x*100 ) ) %>%
+        ## width(width = 1.7) %>%
+        FitFlextableToPage() %>% 
+        set_caption(caption = "Covid19 Allocated Budget by Sector") 
+
+
+
+    save_as_docx(fl8, path="table8_flex.docx" )
+
+
+
+
     
-
-
-
-
-
-
-
-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}: COVID-19 State aid tracker."),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_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}: COVID-19 State aid tracker."),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)
 
 
 ##################################################################
@@ -1883,85 +2167,111 @@
 
 
 
-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}: COVID-19 State aid tracker."),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 <- budget_by_beneficiary_type %>%
+    mutate(share=round_preserve_sum(share,4))
+
+    fl9 <- t1 %>% flextable() %>%
+    ## add_header_row(values = c("some measures", "other measures") )%>%
+    set_header_labels(beneficary_type="Beneficiary",
+                      budget="Allocated Budget (mio €)",
+                      share="Share of Total") %>%     
+        theme_zebra() %>%
+        bold(j = 1, bold = TRUE) %>% 
+    fontsize(part = "all", size = 8)  %>%
+    font(part="all", fontname = "Verdana")  %>% 
+    colformat_double(big.mark = " ") %>%
+    set_formatter(share = function(x) sprintf( "%.2f%%", x*100 ) ) %>%
+    ## set_formatter(gdp = function(x) sprintf( "%.1f%%", x*100 ) ) %>%
+        ## width(width = 1.7) %>%
+        FitFlextableToPage() %>% 
+        set_caption(caption = "Covid19 Allocated Budget by Type of Beneficiary") 
+
+
+
+    save_as_docx(fl9, path="table9_flex.docx" )
+
+
+
+
+## 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}: COVID-19 State aid tracker."),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)
 
 ##############################################################à
 ##############################################################à
@@ -1972,74 +2282,100 @@
 
 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}: COVID-19 State aid tracker."),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)
+    mutate(mean_duration=as.numeric(round(mean_duration,1)))
+
+
+        fl10 <- t1 %>% flextable() %>%
+    ## add_header_row(values = c("some measures", "other measures") )%>%
+    set_header_labels(legal_basis="Legal Basis",
+                      mean_duration="Number of Calendar Days") %>%     
+        theme_zebra() %>%
+        bold(j = 1, bold = TRUE) %>% 
+    fontsize(part = "all", size = 8)  %>%
+    font(part="all", fontname = "Verdana")  %>% 
+    colformat_double(big.mark = " ") %>%
+        ## set_formatter(gdp = function(x) sprintf( "%.1f%%", x*100 ) ) %>%
+        ## width(width = 1.7) %>%
+        FitFlextableToPage() %>% 
+        set_caption(caption = "Average Number of Days to Process a Decision
+by Legal Basis") 
+
+
+
+    save_as_docx(fl10, path="table10_flex.docx" )
+
+
+    
+## 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}: COVID-19 State aid tracker."),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)
 
 ############################################################à
 ############################################################à
@@ -2047,74 +2383,104 @@
 ############################################################à
 
 
-
-
-
 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)),
+        mutate(mean_duration=as.numeric(round(mean_duration,1)))
+
+
+        fl11 <- t1 %>% flextable() %>%
+    ## add_header_row(values = c("some measures", "other measures") )%>%
+    set_header_labels(type_of_measure="Type of Measure",
+                      mean_duration="Number of Calendar Days") %>%     
+        theme_zebra() %>%
+        bold(j = 1, bold = TRUE) %>% 
+    fontsize(part = "all", size = 8)  %>%
+    font(part="all", fontname = "Verdana")  %>% 
+    colformat_double(big.mark = " ") %>%
+        ## set_formatter(gdp = function(x) sprintf( "%.1f%%", x*100 ) ) %>%
+        ## width(width = 1.7) %>%
+        FitFlextableToPage() %>% 
+        set_caption(caption = "Average Number of Days to Process a Decision
+by Type of Measure") 
+
+
+
+    save_as_docx(fl11, path="table11_flex.docx" )
+
+
+
+
+
+
+
+
+
+
+## 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}: COVID-19 State aid tracker."),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)
+##     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}: COVID-19 State aid tracker."),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)
 
 ###################################################################
 ###################################################################
@@ -2123,9 +2489,11 @@
 
 
 
-temp <- tibble(x=c("TF1", "TF2", "TF3", "TF6", "TF7", "TF8", "TF9",
+temp <- tibble(x=c("TF1", "TF2", "TF3","TF4", "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.4 Aid in the form of guarantees and loans channelled through credit institutions or other
+financial institutions",
                       "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",
@@ -2137,92 +2505,115 @@
 
                )
 
-
-
-
 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}: COVID-19 State aid tracker."),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
-
-fn <- paste("summary_tables_generated_on_", Sys.Date(), ".pdf", sep="")
-
-system(paste("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 ",  fn) )
+    mutate(share=round_preserve_sum(share,4))
+
+    fl12 <- t1 %>% flextable() %>%
+    ## add_header_row(values = c("some measures", "other measures") )%>%
+    set_header_labels(name="Chapter Description",
+                      value="Frequency",
+                      share="Share of Total") %>%     
+        theme_zebra() %>%
+        bold(j = 1, bold = TRUE) %>% 
+    fontsize(part = "all", size = 8)  %>%
+    font(part="all", fontname = "Verdana")  %>% 
+    colformat_double(big.mark = " ") %>%
+    set_formatter(share = function(x) sprintf( "%.2f%%", x*100 ) ) %>%
+    ## set_formatter(gdp = function(x) sprintf( "%.1f%%", x*100 ) ) %>%
+        ## width(width = 1.7) %>%
+        FitFlextableToPage() %>% 
+        set_caption(caption = "Frequency of Use of Temporary Framework Chapters") 
+
+
+
+    save_as_docx(fl12, path="table12_flex.docx" )
+
+
+## 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}: COVID-19 State aid tracker."),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
+
+## fn <- paste("summary_tables_generated_on_", Sys.Date(), ".pdf", sep="")
+
+## system(paste("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 ",  fn) )
 
 
 
@@ -2234,186 +2625,186 @@
 
 
 
-## MS tables
-
-for (sel_ms in ms_list){
-
-    print("The MS is,")
-    print(sel_ms)
+## ## MS tables
+
+## for (sel_ms in ms_list){
+
+##     print("The MS is,")
+##     print(sel_ms)
     
 
-t1 <- budget_type_ms %>%
-    filter(member_state_2_letter_code %in% sel_ms) %>% 
-    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 = paste(sel_ms,": Covid19 Allocated Budget by Case Type (Decided Cases)", sep="")
-          )      %>%
-    kable_styling(latex_options = c("striped", "hold_position"),
-                  full_width = F## , font_size = 7
-                  ) %>%
-    footnote(general=c(
-    "\\\\textit{Source}: COVID-19 State aid tracker."),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}"
-  ),
-  "table1_ms.tex"
-)
-
-
-
-tools::texi2pdf("table1_ms.tex", clean = TRUE)
-
-
-###########################à
-###########################à
-###########################à
-###########################à
-###########################à
-
-
-
-
-t1 <- budget_measure_ms %>%
-    filter(member_state_2_letter_code %in% sel_ms) %>% 
-    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)) %>%
-    select(-member_state_2_letter_code)
-
-
-## 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)),
+## t1 <- budget_type_ms %>%
+##     filter(member_state_2_letter_code %in% sel_ms) %>% 
+##     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 = paste(sel_ms,": Covid19 Allocated Budget by Case Type (Decided Cases)", sep="")
+##           )      %>%
+##     kable_styling(latex_options = c("striped", "hold_position"),
+##                   full_width = F## , font_size = 7
+##                   ) %>%
+##     footnote(general=c(
+##     "\\\\textit{Source}: COVID-19 State aid tracker."),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}"
+##   ),
+##   "table1_ms.tex"
+## )
+
+
+
+## tools::texi2pdf("table1_ms.tex", clean = TRUE)
+
+
+## ###########################à
+## ###########################à
+## ###########################à
+## ###########################à
+## ###########################à
+
+
+
+
+## t1 <- budget_measure_ms %>%
+##     filter(member_state_2_letter_code %in% sel_ms) %>% 
+##     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)) %>%
+##     select(-member_state_2_letter_code)
+
+
+## ## 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 = paste(sel_ms,": Covid19 Allocated Budget by Type of Measure (Decided Cases)", sep="")
-          )      %>%
-        kable_styling( position = "center",
-      latex_options = c("repeat_header","striped" ,  "hold_position"),
-                  full_width = F) %>%
-    footnote(general=c(
-    "\\\\textit{Source}: COVID-19 State aid tracker."),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}"
-  ),
-  "table2_ms.tex"
-)
-
-
-
-tools::texi2pdf("table2_ms.tex", clean = TRUE)
-
-
-###########################à
-###########################à
-###########################à
-###########################à
-###########################à
-
-
-
-
-t1 <- budget_by_beneficiary_sector_ms %>%
-    filter(member_state_2_letter_code %in% sel_ms) %>% 
-    mutate(share=share*100) %>%
-    mutate(
-           share=format_col(share,2)) %>%
-    mutate(share=paste(share, "%", sep="")) %>%
-    mutate(budget=format_col(budget,1)) %>%
-    select(-member_state_2_letter_code)
+##     kable("latex",longtable = T, booktabs = T, escape = F,align=c("l", rep("r",2)),
+##           col.names = nn,
+##           caption = paste(sel_ms,": Covid19 Allocated Budget by Type of Measure (Decided Cases)", sep="")
+##           )      %>%
+##         kable_styling( position = "center",
+##       latex_options = c("repeat_header","striped" ,  "hold_position"),
+##                   full_width = F) %>%
+##     footnote(general=c(
+##     "\\\\textit{Source}: COVID-19 State aid tracker."),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}"
+##   ),
+##   "table2_ms.tex"
+## )
+
+
+
+## tools::texi2pdf("table2_ms.tex", clean = TRUE)
+
+
+## ###########################à
+## ###########################à
+## ###########################à
+## ###########################à
+## ###########################à
+
+
+
+
+## t1 <- budget_by_beneficiary_sector_ms %>%
+##     filter(member_state_2_letter_code %in% sel_ms) %>% 
+##     mutate(share=share*100) %>%
+##     mutate(
+##            share=format_col(share,2)) %>%
+##     mutate(share=paste(share, "%", sep="")) %>%
+##     mutate(budget=format_col(budget,1)) %>%
+##     select(-member_state_2_letter_code)
     
 
 
@@ -2422,603 +2813,591 @@
 
 
 
-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 = paste(sel_ms, ": Covid19 Allocated Budget by Sector",
-                          sep="")
-          )      %>%
-    kable_styling(latex_options = c("striped", "hold_position"),
-                  full_width = F## , font_size = 7
-                  ) %>%
-    footnote(general=c(
-    "\\\\textit{Source}: COVID-19 State aid tracker."),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}"
-  ),
-  "table3_ms.tex"
-)
-
-
-
-
-
-
-
-tools::texi2pdf("table3_ms.tex", clean = TRUE)
-
-
-
-###########################à
-###########################à
-###########################à
-###########################à
-###########################à
-
-
-
-
-
-
-t1 <- budget_by_beneficiary_type_ms %>%
-    filter(member_state_2_letter_code %in% sel_ms) %>% 
-    mutate(share=share*100) %>%
-    mutate(
-           share=format_col(share,2)) %>%
-    mutate(share=paste(share, "%", sep="")) %>%
-    mutate(budget=format_col(budget,1)) %>%
-    select(-member_state_2_letter_code)
-
-
-
-
-
-
-
-
-
-
-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 = paste(sel_ms,": Covid19 Allocated Budget by Type of Beneficiary", sep="")
-          )      %>%
-    kable_styling(latex_options = c("striped", "hold_position"),
-                  full_width = F## , font_size = 7
-                  ) %>%
-    footnote(general=c(
-    "\\\\textit{Source}: COVID-19 State aid tracker."),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}"
-  ),
-  "table4_ms.tex"
-)
-
-
-
-
-
-
-
-tools::texi2pdf("table4_ms.tex", clean = TRUE)
-
-
-###########################à
-###########################à
-###########################à
-###########################à
-###########################à
-
-
-t1 <- decisions_eu_ms %>%
-    filter(member_state_2_letter_code %in% sel_ms) %>% 
-    mutate(share=share*100) %>%
-    mutate(
-           share=format_col(share,2)) %>%
-    mutate(share=paste(share, "%", sep=""))%>%
-    select(-member_state_2_letter_code)
-
-
-
-
-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 = paste(sel_ms, ": Covid19 Decisions by Legal Basis (Decided Cases)", sep="")
-          )      %>%
-    kable_styling(latex_options = c("striped", "hold_position"),
-                  full_width = F## , font_size = 7
-                  ) %>%
-    footnote(general=c(
-    "\\\\textit{Source}: COVID-19 State aid tracker."),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_ms.tex"
-)
-
-
-
-tools::texi2pdf("table5_ms.tex", clean = TRUE)
-
-
-
-
-###########################à
-###########################à
-###########################à
-###########################à
-###########################à
-
-
-
-temp <- tibble(x=c("NO", "YES", "Total"), name=c("Under assessment", "Decided cases", "Total"))
-
-t1 <- sa_n_pn_ms %>%
-    filter(member_state_2_letter_code %in% sel_ms) %>%     
-    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="")) ## %>%
-    ## select(-member_state_2_letter_code)
-
-
-
-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 = paste(sel_ms, ": SA Case Assessment Pipeline\\\\Overview N and PN Cases", sep="")
-          )      %>%
-    kable_styling(latex_options = c("striped", "hold_position"),
-                  full_width = F## , font_size = 7
-                  ) %>%
-    footnote(general=c(
-    "\\\\textit{Source}: COVID-19 State aid tracker."),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_ms.tex"
-)
-
-
-
-tools::texi2pdf("table6_ms.tex", clean = TRUE)
-
-
-
-###########################à
-###########################à
-###########################à
-###########################à
-###########################à
-
-
-t1 <- measures_covid_ms %>%
-    filter(member_state_2_letter_code %in% sel_ms) %>%     
-    mutate(share=share*100) %>%
-    mutate(
-           share=format_col(share,2)) %>%
-    mutate(share=paste(share, "%", sep="")) %>%
-    select(-member_state_2_letter_code)
-
-
-
-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 = paste(sel_ms, ": Covid19 Measures by Legal Basis (Decided Cases)", sep="")
-          )      %>%
-    kable_styling(latex_options = c("striped", "hold_position"),
-                  full_width = F## , font_size = 7
-                  ) %>%
-    footnote(general=c(
-    "\\\\textit{Source}: COVID-19 State aid tracker."),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_ms.tex"
-)
-
-
-
-tools::texi2pdf("table7_ms.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_ms %>%
-    filter(member_state_code %in% sel_ms) %>%
-    mutate(share=value/max(value) ) %>% 
-    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))##  %>%
-    ## select(-member_state_code)
-
-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 = paste(sel_ms,": Frequency of Use of Temporary Framework Chapters", sep="")
-          )      %>%
-    kable_styling(latex_options = c("striped", "hold_position"),
-                  full_width = F## , font_size = 7
-                  ) %>%
-    footnote(general=c(
-    "\\\\textit{Source}: COVID-19 State aid tracker."),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_ms.tex"
-)
-
-
-
-
-
-
-
-tools::texi2pdf("table8_ms.tex", clean = TRUE)
-
-#########################################################
-
-
-t1 <- duration_stat_ms %>%
-    filter(member_state_2_letter_code %in% sel_ms) %>%
-    select(
-           mean_duration, median_duration)
-
-t1_plot <-  t1 %>%
-    ## mutate(share=share*100) %>%
-    ## mutate(budget=format_col(budget,1)) %>%
-    ## mutate(share=round(share,1)) %>%
-    ## mutate(share=format_col(share,1)) %>%
-    ## mutate(share=paste(share,"%", sep="")) %>%
-    ## mutate(gdp=paste(gdp,"%", sep="")) %>% 
-    mutate(mean_duration=format_col(mean_duration,1),
-           median_duration=format_col(median_duration,1)
-           ) ## %>%
-    ## left_join(y=names, by=c("member_state_2_letter_code"="iso2")) %>%
-    ## select(-member_state_2_letter_code) %>%
-    ## select(country, everything())
-
-
-
-
-nn <- linebreak( c(
-    "Mean Duration\n(calendar days)",
-    "Median Duration\n(calendar days)")  ,
-                align="c")
-
-
-
-ll <- t1_plot %>%
-    search_replace( "%", "\\\\%" )  %>%
-    ## na_char_to_pattern(":") %>%
-    ## pattern_to_pattern("NA", ":") %>%
-    kable("latex", booktabs = T, escape = F,align=c("l", rep("r",11)),
-          col.names = nn,
-          caption = paste(sel_ms, ": Duration of Decisions")
-          )      %>%
-    kable_styling(latex_options = c("striped", "hold_position"),
-                  full_width = F## , font_size = 7
-                  ) %>%
-    footnote(general=c(
-    "\\\\textit{Source}: COVID-19 State aid tracker."),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_ms.tex"
-)
-
-
-
-tools::texi2pdf("table9_ms.tex", clean = TRUE)
-
-
-##############################################################
-##############################################################
-##############################################################
-##############################################################
-
-
-
-rep1_unique_ms <- rep1_unique %>%
-    filter(member_state_2_letter_code %in% sel_ms) %>%
-    mutate(working_title=paste(case_reference, ": ", working_title)) %>%
-    filter(!is.na(confirmed_budgets)) %>%
-    mutate(decision_date=excel_numeric_to_date(decision_date)) %>% 
-    select(working_title, legal_basis,decision_date,
-           confirmed_budgets,type_of_measure,beneficary_sector,
-           beneficary_type)  %>%
-    mutate(confirmed_budgets=format_col(confirmed_budgets,1))  %>%
-    mutate(working_title=convert_to_utf(working_title))
-
-
-## table_cases <- rep1_unique %>%
+## 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 = paste(sel_ms, ": Covid19 Allocated Budget by Sector",
+##                           sep="")
+##           )      %>%
+##     kable_styling(latex_options = c("striped", "hold_position"),
+##                   full_width = F## , font_size = 7
+##                   ) %>%
+##     footnote(general=c(
+##     "\\\\textit{Source}: COVID-19 State aid tracker."),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}"
+##   ),
+##   "table3_ms.tex"
+## )
+
+
+
+
+
+
+
+## tools::texi2pdf("table3_ms.tex", clean = TRUE)
+
+
+
+## ###########################à
+## ###########################à
+## ###########################à
+## ###########################à
+## ###########################à
+
+
+
+
+
+
+## t1 <- budget_by_beneficiary_type_ms %>%
+##     filter(member_state_2_letter_code %in% sel_ms) %>% 
+##     mutate(share=share*100) %>%
+##     mutate(
+##            share=format_col(share,2)) %>%
+##     mutate(share=paste(share, "%", sep="")) %>%
+##     mutate(budget=format_col(budget,1)) %>%
+##     select(-member_state_2_letter_code)
+
+
+
+
+
+
+
+
+
+
+## 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 = paste(sel_ms,": Covid19 Allocated Budget by Type of Beneficiary", sep="")
+##           )      %>%
+##     kable_styling(latex_options = c("striped", "hold_position"),
+##                   full_width = F## , font_size = 7
+##                   ) %>%
+##     footnote(general=c(
+##     "\\\\textit{Source}: COVID-19 State aid tracker."),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}"
+##   ),
+##   "table4_ms.tex"
+## )
+
+
+
+
+
+
+
+## tools::texi2pdf("table4_ms.tex", clean = TRUE)
+
+
+## ###########################à
+## ###########################à
+## ###########################à
+## ###########################à
+## ###########################à
+
+
+## t1 <- decisions_eu_ms %>%
+##     filter(member_state_2_letter_code %in% sel_ms) %>% 
+##     mutate(share=share*100) %>%
+##     mutate(
+##            share=format_col(share,2)) %>%
+##     mutate(share=paste(share, "%", sep=""))%>%
+##     select(-member_state_2_letter_code)
+
+
+
+
+## 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 = paste(sel_ms, ": Covid19 Decisions by Legal Basis (Decided Cases)", sep="")
+##           )      %>%
+##     kable_styling(latex_options = c("striped", "hold_position"),
+##                   full_width = F## , font_size = 7
+##                   ) %>%
+##     footnote(general=c(
+##     "\\\\textit{Source}: COVID-19 State aid tracker."),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_ms.tex"
+## )
+
+
+
+## tools::texi2pdf("table5_ms.tex", clean = TRUE)
+
+
+
+
+## ###########################à
+## ###########################à
+## ###########################à
+## ###########################à
+## ###########################à
+
+
+
+## temp <- tibble(x=c("NO", "YES", "Total"), name=c("Under assessment", "Decided cases", "Total"))
+
+## t1 <- sa_n_pn_ms %>%
+##     filter(member_state_2_letter_code %in% sel_ms) %>%     
+##     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="")) ## %>%
+##     ## select(-member_state_2_letter_code)
+
+
+
+## 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 = paste(sel_ms, ": SA Case Assessment Pipeline\\\\Overview N and PN Cases", sep="")
+##           )      %>%
+##     kable_styling(latex_options = c("striped", "hold_position"),
+##                   full_width = F## , font_size = 7
+##                   ) %>%
+##     footnote(general=c(
+##     "\\\\textit{Source}: COVID-19 State aid tracker."),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_ms.tex"
+## )
+
+
+
+## tools::texi2pdf("table6_ms.tex", clean = TRUE)
+
+
+
+## ###########################à
+## ###########################à
+## ###########################à
+## ###########################à
+## ###########################à
+
+
+## t1 <- measures_covid_ms %>%
+##     filter(member_state_2_letter_code %in% sel_ms) %>%     
+##     mutate(share=share*100) %>%
+##     mutate(
+##            share=format_col(share,2)) %>%
+##     mutate(share=paste(share, "%", sep="")) %>%
+##     select(-member_state_2_letter_code)
+
+
+
+## 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 = paste(sel_ms, ": Covid19 Measures by Legal Basis (Decided Cases)", sep="")
+##           )      %>%
+##     kable_styling(latex_options = c("striped", "hold_position"),
+##                   full_width = F## , font_size = 7
+##                   ) %>%
+##     footnote(general=c(
+##     "\\\\textit{Source}: COVID-19 State aid tracker."),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_ms.tex"
+## )
+
+
+
+## tools::texi2pdf("table7_ms.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_ms %>%
+##     filter(member_state_code %in% sel_ms) %>%
+##     mutate(share=value/max(value) ) %>% 
+##     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))##  %>%
+##     ## select(-member_state_code)
+
+## 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 = paste(sel_ms,": Frequency of Use of Temporary Framework Chapters", sep="")
+##           )      %>%
+##     kable_styling(latex_options = c("striped", "hold_position"),
+##                   full_width = F## , font_size = 7
+##                   ) %>%
+##     footnote(general=c(
+##     "\\\\textit{Source}: COVID-19 State aid tracker."),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_ms.tex"
+## )
+
+
+
+
+
+
+
+## tools::texi2pdf("table8_ms.tex", clean = TRUE)
+
+## #########################################################
+
+
+## t1 <- duration_stat_ms %>%
+##     filter(member_state_2_letter_code %in% sel_ms) %>%
+##     select(
+##            mean_duration, median_duration)
+
+## t1_plot <-  t1 %>%
+##     ## mutate(share=share*100) %>%
+##     ## mutate(budget=format_col(budget,1)) %>%
+##     ## mutate(share=round(share,1)) %>%
+##     ## mutate(share=format_col(share,1)) %>%
+##     ## mutate(share=paste(share,"%", sep="")) %>%
+##     ## mutate(gdp=paste(gdp,"%", sep="")) %>% 
+##     mutate(mean_duration=format_col(mean_duration,1),
+##            median_duration=format_col(median_duration,1)
+##            ) ## %>%
+##     ## left_join(y=names, by=c("member_state_2_letter_code"="iso2")) %>%
+##     ## select(-member_state_2_letter_code) %>%
+##     ## select(country, everything())
+
+
+
+
+## nn <- linebreak( c(
+##     "Mean Duration\n(calendar days)",
+##     "Median Duration\n(calendar days)")  ,
+##                 align="c")
+
+
+
+## ll <- t1_plot %>%
+##     search_replace( "%", "\\\\%" )  %>%
+##     ## na_char_to_pattern(":") %>%
+##     ## pattern_to_pattern("NA", ":") %>%
+##     kable("latex", booktabs = T, escape = F,align=c("l", rep("r",11)),
+##           col.names = nn,
+##           caption = paste(sel_ms, ": Duration of Decisions")
+##           )      %>%
+##     kable_styling(latex_options = c("striped", "hold_position"),
+##                   full_width = F## , font_size = 7
+##                   ) %>%
+##     footnote(general=c(
+##     "\\\\textit{Source}: COVID-19 State aid tracker."),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_ms.tex"
+## )
+
+
+
+## tools::texi2pdf("table9_ms.tex", clean = TRUE)
+
+
+## ##############################################################
+## ##############################################################
+## ##############################################################
+## ##############################################################
+
+
+
+## rep1_unique_ms <- rep1_unique %>%
 ##     filter(member_state_2_letter_code %in% sel_ms) %>%
 ##     mutate(working_title=paste(case_reference, ": ", working_title)) %>%
 ##     filter(!is.na(confirmed_budgets)) %>%
@@ -3026,87 +3405,99 @@
 ##     select(working_title, legal_basis,decision_date,
 ##            confirmed_budgets,type_of_measure,beneficary_sector,
 ##            beneficary_type)  %>%
-##     mutate(confirmed_budgets=format_col(confirmed_budgets,1))
-
-save_excel(rep1_unique_ms, "table_cases_MS.xlsx")
+##     mutate(confirmed_budgets=format_col(confirmed_budgets,1))  %>%
+##     mutate(working_title=convert_to_utf(working_title))
+
+
+## ## table_cases <- rep1_unique %>%
+## ##     filter(member_state_2_letter_code %in% sel_ms) %>%
+## ##     mutate(working_title=paste(case_reference, ": ", working_title)) %>%
+## ##     filter(!is.na(confirmed_budgets)) %>%
+## ##     mutate(decision_date=excel_numeric_to_date(decision_date)) %>% 
+## ##     select(working_title, legal_basis,decision_date,
+## ##            confirmed_budgets,type_of_measure,beneficary_sector,
+## ##            beneficary_type)  %>%
+## ##     mutate(confirmed_budgets=format_col(confirmed_budgets,1))
+
+## save_excel(rep1_unique_ms, "table_cases_MS.xlsx")
 
            
-t1_plot <- rep1_unique_ms %>%
-        mutate(working_title=wrapper_text(working_title, 12))  %>%
-        mutate(type_of_measure=wrapper_text(type_of_measure, 10))  %>%
-        mutate(legal_basis=wrapper_text(legal_basis, 10))   %>% 
-        mutate(beneficary_sector=wrapper_text(beneficary_sector, 10))   %>% 
-        mutate(beneficary_type=wrapper_text(beneficary_type, 10))   
-
-
-
-
-nn <- linebreak( c("Working\nTitle",
-                   "Legal\nBasis", "Decision\nDate",
-                   "Confirmed\nBudget",
-                   "Type of\nMeasure", "Beneficiary\nSector",
-                   "Beneficiary\nType")  ,
-                align="c")
-
-
-
-ll <- t1_plot %>%
-    search_replace( "%", "\\\\%" )  %>%
-    search_replace("_", " ") %>%
-    search_replace("&", "and") %>%
-    search_replace("/", " / ") %>% 
-
-    ## na_char_to_pattern(":") %>%
-    ## pattern_to_pattern("NA", ":") %>%
-    kable("latex",longtable = T, booktabs = T, escape = F,
-          align=c("l", rep("r",11)),
-          col.names = nn,
-          caption = "EU Wide Statistics on Covid19 State Aid Measures"
-          )      %>%
-    kable_styling(position = "center",
-                  latex_options = c("repeat_header","striped", "hold_position"),
-                  full_width = F## , font_size = 7
-                  ) %>%
-    footnote(general=c(
-    "\\\\textit{Source}: COVID-19 State aid tracker."),general_title = " ", escape = FALSE) ## %>%
-    ## row_spec(pos, bold = T)
-
-
-
-
-
-
-
-
-writeLines(
-  c(
-      "\\documentclass{article}",
-      "\\usepackage[a4paper]{geometry}",
-      "\\usepackage{longtable}",
-      "\\usepackage[utf8]{inputenc}",
-      "\\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_ms.tex"
-)
-
-
-
-## tools::texi2pdf("table10_ms.tex", clean = TRUE)
+## t1_plot <- rep1_unique_ms %>%
+##         mutate(working_title=wrapper_text(working_title, 12))  %>%
+##         mutate(type_of_measure=wrapper_text(type_of_measure, 10))  %>%
+##         mutate(legal_basis=wrapper_text(legal_basis, 10))   %>% 
+##         mutate(beneficary_sector=wrapper_text(beneficary_sector, 10))   %>% 
+##         mutate(beneficary_type=wrapper_text(beneficary_type, 10))   
+
+
+
+
+## nn <- linebreak( c("Working\nTitle",
+##                    "Legal\nBasis", "Decision\nDate",
+##                    "Confirmed\nBudget",
+##                    "Type of\nMeasure", "Beneficiary\nSector",
+##                    "Beneficiary\nType")  ,
+##                 align="c")
+
+
+
+## ll <- t1_plot %>%
+##     search_replace( "%", "\\\\%" )  %>%
+##     search_replace("_", " ") %>%
+##     search_replace("&", "and") %>%
+##     search_replace("/", " / ") %>% 
+
+##     ## na_char_to_pattern(":") %>%
+##     ## pattern_to_pattern("NA", ":") %>%
+##     kable("latex",longtable = T, booktabs = T, escape = F,
+##           align=c("l", rep("r",11)),
+##           col.names = nn,
+##           caption = "EU Wide Statistics on Covid19 State Aid Measures"
+##           )      %>%
+##     kable_styling(position = "center",
+##                   latex_options = c("repeat_header","striped", "hold_position"),
+##                   full_width = F## , font_size = 7
+##                   ) %>%
+##     footnote(general=c(
+##     "\\\\textit{Source}: COVID-19 State aid tracker."),general_title = " ", escape = FALSE) ## %>%
+##     ## row_spec(pos, bold = T)
+
+
+
+
+
+
+
+
+## writeLines(
+##   c(
+##       "\\documentclass{article}",
+##       "\\usepackage[a4paper]{geometry}",
+##       "\\usepackage{longtable}",
+##       "\\usepackage[utf8]{inputenc}",
+##       "\\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_ms.tex"
+## )
+
+
+
+## ## tools::texi2pdf("table10_ms.tex", clean = TRUE)
 
 
 
@@ -3118,11 +3509,11 @@
  
 
 
-fn <- paste("summary_tables_", sel_ms,"_generated_on_", Sys.Date(), ".pdf", sep="")
-
-system(paste("pdftk table1.pdf  table1_ms.pdf table2_ms.pdf table3_ms.pdf table4_ms.pdf table5_ms.pdf table6_ms.pdf  table7_ms.pdf   table8_ms.pdf table9_ms.pdf  cat output ",  fn) )
-
-}
+## fn <- paste("summary_tables_", sel_ms,"_generated_on_", Sys.Date(), ".pdf", sep="")
+
+## system(paste("pdftk table1.pdf  table1_ms.pdf table2_ms.pdf table3_ms.pdf table4_ms.pdf table5_ms.pdf table6_ms.pdf  table7_ms.pdf   table8_ms.pdf table9_ms.pdf  cat output ",  fn) )
+
+## }