Skip to content

Commit

Permalink
Merge branch 'master' into alternate-switzerland
Browse files Browse the repository at this point in the history
  • Loading branch information
seabbs committed Dec 1, 2021
2 parents 0d8a6e5 + 71d7b1f commit aea9b96
Show file tree
Hide file tree
Showing 4 changed files with 9 additions and 28 deletions.
2 changes: 1 addition & 1 deletion .github/workflows/check-full.yaml
Expand Up @@ -7,7 +7,7 @@ name: R-CMD-check
branches:
- master
schedule:
- cron: '0 0 * * *'
- cron: '0 0 * * 1'
pull_request:
branches:
- '*'
Expand Down
23 changes: 0 additions & 23 deletions .github/workflows/draft-pdf.yml

This file was deleted.

4 changes: 4 additions & 0 deletions NEWS.md
Expand Up @@ -11,6 +11,10 @@ This release is currently under development

* Updated the package logo to include the newly supported data sets.

## Bug fixes

- Fixed a bug in the data sourced from Germany so that instead of treating it as a line list of individuals it is treated as a relatively finely resolved count data which needs to be summed up (by @sbfnk).

# covidregionaldata 0.9.2

This release adds support for the Covid19 Data Hub which includes Google and Apple mobility data amongst a large range of other data sets, data from the European Commission's Joint Research Centre which is at both the regional and national level, and individual sources for regional data from several countries. Package updates have been made in line with a software review at the [Journal of Open Source Software](https://github.com/openjournals/joss-reviews/issues/3290). Finally, this release exposes more of the testing infrastructure to users and adds a package hexsticker.
Expand Down
8 changes: 4 additions & 4 deletions R/Germany.R
Expand Up @@ -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(sum(.data$cases_new)),
deaths_new = as.numeric(sum(.data$deaths_new))
) %>%
ungroup()
},
Expand All @@ -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()
}
Expand Down

0 comments on commit aea9b96

Please sign in to comment.