Commit: 5d371784ce0efdd05680386afd450ba6d376d48c - myprojects-hg-reborn (hg)

Commit MetaInfo

• Revision: 5d371784ce0efdd05680386afd450ba6d376d48c (tree)
• Zeit: 2022-07-04 23:32:14
• Autor: Lorenzo Isella <lorenzo.isella@gmai...>
• Commiter: Lorenzo Isella

Log Message

I improved the tests.

Ändern Zusammenfassung

• modified: R-codes/process_covid_tracker.R

Diff

diff -r c188e825f2e9 -r 5d371784ce0e R-codes/process_covid_tracker.R
--- a/R-codes/process_covid_tracker.R	Thu Jun 30 11:47:57 2022 +0200
+++ b/R-codes/process_covid_tracker.R	Mon Jul 04 16:32:14 2022 +0200
@@ -1,6 +1,6 @@
 rm(list=ls())
 
-## last saved on  Time-stamp: "2022-06-08 16:13:52 lorenzo"
+## last saved on  Time-stamp: "2022-07-04 16:12:44 lorenzo"
 
 
 library(tidyverse)
@@ -200,14 +200,23 @@
     distinct(case_reference, .keep_all=T) 
 
 
-unaccounted_cases <- setdiff(c(amendment_list, decision_list),
+unaccounted_cases <- setdiff(amendments_plus_decisions,
                              rep1_unique$case_reference)
 
-df_unaccounted <- rep1_ini %>%
-    clean_data() %>%  ## clean the data of the full report
-    distinct() %>% 
-    filter(member_state_2_letter_code %!in% exclude_ms,
-           case_reference %in% unaccounted_cases) 
+
+unaccounted_cases2 <- setdiff(rep1_unique$case_reference,
+                              amendments_plus_decisions)
+
+
+    ## df_unaccounted <- rep1_unique %>%
+    ##     filter(## !is.na(legal_basis), apparently this is superfluous now
+    ##         decided=="YES") %>% 
+    ## clean_data() %>%  ## clean the data of the full report
+    ## distinct() %>% 
+    ## filter(member_state_2_letter_code %!in% exclude_ms,
+    ##        case_reference %in% unaccounted_cases) 
+
+## save_excel(df_unaccounted, "cases_in_rep1_not_in_decisions_amendments.xlsx")
 
 
 ### Some tests!