Commit: 4c42f887aceb817a8ac967dd23cf80e8a85ebe97 - myprojects-hg-reborn (hg)

Commit MetaInfo

• Revision: 4c42f887aceb817a8ac967dd23cf80e8a85ebe97 (tree)
• Zeit: 2020-07-09 23:45:22
• Autor: Lorenzo Isella <lorenzo.isella@gmai...>
• Commiter: Lorenzo Isella

Log Message

Minor modifications and correction of an error (I sort the column in a couple of pivot_wider calls).

Ändern Zusammenfassung

• modified: R-codes/generate_kables.R
• modified: R-codes/pocket_guide.R

Diff

diff -r e45b49dcb8a7 -r 4c42f887aceb R-codes/generate_kables.R
--- a/R-codes/generate_kables.R	Thu Jul 09 15:56:32 2020 +0200
+++ b/R-codes/generate_kables.R	Thu Jul 09 16:45:22 2020 +0200
@@ -1739,7 +1739,7 @@
 t1_plot <-  t1 %>%
     search_replace( "%", "\\\\%" )
 
-nn <- linebreak(c( "Leading Sources","Rank","Outward Stocks", "Share",
+nn <- linebreak(c( "Leading Destinations","Rank","Outward Stocks", "Share",
                   "Cumulative Share"), align="c")
 
 
@@ -3108,7 +3108,7 @@
                  ) %>%
     ## add_header_above(c("", "EU27 trade with Extra EU27" = 3, "Year-on-year growth (*)"=2)) %>%
     footnote(general=c(## "(:) not available or not applicable.",
-    "\\\\textit{Sources}: Eurostat (bop\\\\_its\\\\_tot; bop\\\\_its6\\\\_tot; Comext)."),general_title = " ", escape = FALSE,
+    "\\\\textit{Source}: Eurostat (Comext)."),general_title = " ", escape = FALSE,
              threeparttable = T) %>%
     row_spec(pos, bold = T)
 

diff -r e45b49dcb8a7 -r 4c42f887aceb R-codes/pocket_guide.R
--- a/R-codes/pocket_guide.R	Thu Jul 09 15:56:32 2020 +0200
+++ b/R-codes/pocket_guide.R	Thu Jul 09 16:45:22 2020 +0200
@@ -3117,12 +3117,12 @@
 
 ####Trade by MS
 
-df_ms_ini <- read_tsv("input_data_files/eu27_trade_ms.tsv")
+df_ms_ini <- read_tsv("input_data_files/eu27_trade_ms.tsv") 
 
 df_ms_exp <- df_ms_ini %>%
     select(reporterlabel, year, e_value) %>%
     mutate(e_value=e_value/1e6) %>%
-    pivot_wider(names_from=year, values_from=e_value) %>%
+    pivot_wider(names_from=year, values_from=e_value, names_sort=T) %>%
     clean_names() %>%
     arrange(reporterlabel) %>%
     move_row(which(.$reporterlabel=="EU27"),1)
@@ -3133,7 +3133,7 @@
 df_ms_imp <- df_ms_ini %>%
     select(reporterlabel, year, i_value) %>%
     mutate(i_value=i_value/1e6) %>%
-    pivot_wider(names_from=year, values_from=i_value) %>%
+    pivot_wider(names_from=year, values_from=i_value, names_sort=T) %>%
     clean_names() %>%
     arrange(reporterlabel) %>%
     move_row(which(.$reporterlabel=="EU27"),1)
@@ -3836,7 +3836,7 @@
                       eu27_trade_concluded,
                       eu27_trade_future
                       ) %>%
-    round_all_to_n_preserve_sum(1) %>% 
+    ## round_all_to_n_preserve_sum(1) %>% 
     format_all(1) %>%
     mutate(across(contains("growth"), ~paste(.x,"%", sep=""))) %>% 
     mutate(across(contains("share"), ~paste(.x,"%", sep="")))