fix Germany case/death data

RichardMN · Nov 29, 2021 · 4c7cb8c · 4c7cb8c
1 parent 8c77b82
commit 4c7cb8c
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/R/Germany.R b/R/Germany.R
@@ -94,8 +94,8 @@ Germany <- R6::R6Class("Germany",
           .data$date
         ) %>%
         summarise(
-          cases_new = as.numeric(sum(.data$cases_new > 0)),
-          deaths_new = as.numeric(sum(.data$deaths_new > 0))
+          cases_new = as.numeric(.data$cases_new)),
+          deaths_new = as.numeric(.data$deaths_new))
         ) %>%
         ungroup()
     },
@@ -116,8 +116,8 @@ Germany <- R6::R6Class("Germany",
           .data$level_2_region, .data$date
         ) %>%
         summarise(
-          cases_new = as.numeric(sum(.data$cases_new > 0)),
-          deaths_new = as.numeric(sum(.data$deaths_new > 0))
+          cases_new = as.numeric(sum(.data$cases_new)),
+          deaths_new = as.numeric(sum(.data$deaths_new))
         ) %>%
         ungroup()
     }