• R/O
  • SSH

Commit

Tags
Keine Tags

Frequently used words (click to add to your profile)

javac++androidlinuxc#objective-cqt誰得cocoawindowspythonphprubygameguibathyscaphec翻訳omegat計画中(planning stage)frameworktwittertestdombtronvb.netdirectxarduinopreviewerゲームエンジン

Commit MetaInfo

Revision5d371784ce0efdd05680386afd450ba6d376d48c (tree)
Zeit2022-07-04 23:32:14
AutorLorenzo Isella <lorenzo.isella@gmai...>
CommiterLorenzo Isella

Log Message

I improved the tests.

Ändern Zusammenfassung

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 @@
11 rm(list=ls())
22
3-## last saved on Time-stamp: "2022-06-08 16:13:52 lorenzo"
3+## last saved on Time-stamp: "2022-07-04 16:12:44 lorenzo"
44
55
66 library(tidyverse)
@@ -200,14 +200,23 @@
200200 distinct(case_reference, .keep_all=T)
201201
202202
203-unaccounted_cases <- setdiff(c(amendment_list, decision_list),
203+unaccounted_cases <- setdiff(amendments_plus_decisions,
204204 rep1_unique$case_reference)
205205
206-df_unaccounted <- rep1_ini %>%
207- clean_data() %>% ## clean the data of the full report
208- distinct() %>%
209- filter(member_state_2_letter_code %!in% exclude_ms,
210- case_reference %in% unaccounted_cases)
206+
207+unaccounted_cases2 <- setdiff(rep1_unique$case_reference,
208+ amendments_plus_decisions)
209+
210+
211+ ## df_unaccounted <- rep1_unique %>%
212+ ## filter(## !is.na(legal_basis), apparently this is superfluous now
213+ ## decided=="YES") %>%
214+ ## clean_data() %>% ## clean the data of the full report
215+ ## distinct() %>%
216+ ## filter(member_state_2_letter_code %!in% exclude_ms,
217+ ## case_reference %in% unaccounted_cases)
218+
219+## save_excel(df_unaccounted, "cases_in_rep1_not_in_decisions_amendments.xlsx")
211220
212221
213222 ### Some tests!