upgrade most vc-formatted data sources to the format of git2rdata version 0.4.0. In this version, files not optimized for version control (but rather for readability), are saved as csv instead of tsv files. For n2khab, this applies to the types and env_pressures data sources.
since it is expected that this upgrade is not compatible with older git2rdata versions, the version dependency for git2rdata is updated.
update typegroup membership of type 7210 in scheme GW_03.3, as proposed by @w-jan:
> library(git2rdata)
> library(magrittr)
> scheme_types_new <- read_vc("scheme_types", "inst/textdata/")
> system("git show v0.6.0:inst/textdata/scheme_types.tsv", intern = TRUE) %>%
+ writeLines(file.path(tempdir(), "scheme_types.tsv"))
> system("git show v0.6.0:inst/textdata/scheme_types.yml", intern = TRUE) %>%
+ writeLines(file.path(tempdir(), "scheme_types.yml"))
> scheme_types_old <- read_vc("scheme_types", tempdir())
>
> # LINES PRESENT ONLY BEFORE
> scheme_types_old %>%
+ dplyr::anti_join(scheme_types_new, by = c("scheme", "type", "typegroup"))
scheme type typegroup
1 GW_03.3 7210 GW_03.3_group3
>
> # LINES PRESENT ONLY AFTER
> scheme_types_old %>%
+ dplyr::anti_join(scheme_types_new, ., by = c("scheme", "type", "typegroup"))
scheme type typegroup
1 GW_03.3 7210 GW_03.3_group2
Source code only
```r
library(git2rdata)
library(magrittr)
scheme_types_new <- read_vc("scheme_types", "inst/textdata/")
system("git show v0.6.0:inst/textdata/scheme_types.tsv", intern = TRUE) %>%
writeLines(file.path(tempdir(), "scheme_types.tsv"))
system("git show v0.6.0:inst/textdata/scheme_types.yml", intern = TRUE) %>%
writeLines(file.path(tempdir(), "scheme_types.yml"))
scheme_types_old <- read_vc("scheme_types", tempdir())
# LINES PRESENT ONLY BEFORE
scheme_types_old %>%
dplyr::anti_join(scheme_types_new, by = c("scheme", "type", "typegroup"))
# LINES PRESENT ONLY AFTER
scheme_types_old %>%
dplyr::anti_join(scheme_types_new, ., by = c("scheme", "type", "typegroup"))
```
typesandenv_pressuresdata sources.Source code only
```r library(git2rdata) library(magrittr) scheme_types_new <- read_vc("scheme_types", "inst/textdata/") system("git show v0.6.0:inst/textdata/scheme_types.tsv", intern = TRUE) %>% writeLines(file.path(tempdir(), "scheme_types.tsv")) system("git show v0.6.0:inst/textdata/scheme_types.yml", intern = TRUE) %>% writeLines(file.path(tempdir(), "scheme_types.yml")) scheme_types_old <- read_vc("scheme_types", tempdir()) # LINES PRESENT ONLY BEFORE scheme_types_old %>% dplyr::anti_join(scheme_types_new, by = c("scheme", "type", "typegroup")) # LINES PRESENT ONLY AFTER scheme_types_old %>% dplyr::anti_join(scheme_types_new, ., by = c("scheme", "type", "typegroup")) ```