prepare 0.2.2 (#260)

* Update docs

* Style

* Update revdepcheck results

Author: Mauro Lepore

data-raw/ald_demo.R

@@ -25,7 +25,8 @@ generate_lei <- function(id) {
         paste0,
         replicate(2, sample(0:9, 1, TRUE), FALSE)
       )
-    })
+    }
+  )
 
   paste0(four, "00", twelve, two)
 }
@@ -46,8 +47,8 @@ ald_aviation <- ald_aviation %>%
     # normalize the data
     .x = production,
     .y = emission_factor,
-    production = (.x - min(.x))/(max(.x) - min(.x)),
-    emission_factor = (.y - min(.y))/(max(.y) - min(.y)),
+    production = (.x - min(.x)) / (max(.x) - min(.x)),
+    emission_factor = (.y - min(.y)) / (max(.y) - min(.y)),
     .x = NULL,
     .y = NULL
   )
@@ -67,16 +68,16 @@ ald_aviation <- ald_aviation %>%
 # hdv ---------------------------------------------------------------------
 hdv_name_bridge <- tibble::tribble(
   ~name_company, ~name_company_hdv,
-  "aston martin",          "scania",
-  "avtozaz",             "man",
-  "bogdan",           "iveco",
-  "ch auto",      "paccar inc",
-  "chehejia",            "hino",
-  "chtc auto",     "volvo group",
-  "dongfeng honda",        "navistar",
-  "dongfeng-luxgen",        "dongfeng",
-  "electric mobility solutions",     "tata motors",
-  "faraday future",         "daimler"
+  "aston martin", "scania",
+  "avtozaz", "man",
+  "bogdan", "iveco",
+  "ch auto", "paccar inc",
+  "chehejia", "hino",
+  "chtc auto", "volvo group",
+  "dongfeng honda", "navistar",
+  "dongfeng-luxgen", "dongfeng",
+  "electric mobility solutions", "tata motors",
+  "faraday future", "daimler"
 )
 
 ald_hdv <- ald_demo %>%
@@ -97,7 +98,7 @@ ald_hdv <- ald_hdv %>%
   dplyr::mutate(
     # normalize the data
     .x = production,
-    production = (.x - min(.x))/(max(.x) - min(.x)),
+    production = (.x - min(.x)) / (max(.x) - min(.x)),
     emission_factor = NA,
     .x = NULL,
   )
@@ -132,7 +133,7 @@ ald_demo <- ald_demo %>%
   ) %>%
   ungroup()
 
-#ensure reproducibility of random identifiers
+# ensure reproducibility of random identifiers
 withr::with_seed(
   42,
   {
@@ -145,7 +146,8 @@ withr::with_seed(
       # assume LEIs for about 50% of companies
       slice_sample(prop = 0.5) %>%
       mutate(lei = vgenerate_lei(id_company))
-  })
+  }
+)
 
 ald_demo <- ald_demo %>%
   left_join(leis, by = "id_company")
@@ -165,7 +167,7 @@ ordered_names <- c(
   "is_ultimate_owner",
   "ald_timestamp",
   emission_factor_unit = "ald_emission_factor_unit"
-  )
+)
 
 ald_demo <- select(ald_demo, ordered_names)
 

data-raw/region_isos.R

@@ -92,7 +92,6 @@ exclude_values <- function(data, values, .region) {
 }
 
 process_countries <- function(data, ald_isos, source_year) {
-
   data %>%
     pick_type("country_name") %>%
     rbind(global_data(., source_year)) %>%
@@ -230,7 +229,7 @@ region_isos_nze_2021 <- process_countries(
   region_data,
   ald_isos,
   source_year
-  )
+)
 
 # Combine -----------------------------------------------------------------
 

man/region_isos.Rd

@@ -2,21 +2,28 @@
 
 |field    |value                        |
 |:--------|:----------------------------|
-|version  |R version 4.0.3 (2020-10-10) |
-|os       |macOS Big Sur 10.16          |
-|system   |x86_64, darwin17.0           |
-|ui       |RStudio                      |
+|version  |R version 4.1.1 (2021-08-10) |
+|os       |Ubuntu 20.04.3 LTS           |
+|system   |x86_64, linux-gnu            |
+|ui       |X11                          |
 |language |(EN)                         |
-|collate  |en_CA.UTF-8                  |
-|ctype    |en_CA.UTF-8                  |
-|tz       |Europe/Berlin                |
-|date     |2021-07-09                   |
+|collate  |en_US.UTF-8                  |
+|ctype    |en_US.UTF-8                  |
+|tz       |America/Los_Angeles          |
+|date     |2021-09-03                   |
 
 # Dependencies
 
 |package    |old   |new        |Δ  |
 |:----------|:-----|:----------|:--|
-|r2dii.data |0.2.0 |0.2.0.9000 |*  |
+|r2dii.data |0.2.1 |0.2.1.9000 |*  |
 
 # Revdeps
 
+## Failed to check (2)
+
+|package        |version |error |warning |note |
+|:--------------|:-------|:-----|:-------|:----|
+|r2dii.analysis |?       |      |        |     |
+|r2dii.plot     |?       |      |        |     |
+

revdep/README.md

@@ -1 +1,66 @@
-*Wow, no problems at all. :)*
+# r2dii.analysis
+
+<details>
+
+* Version: 
+* GitHub: https://github.com/2DegreesInvesting/r2dii.data
+* Source code: NA
+* Number of recursive dependencies: 0
+
+</details>
+
+## Error before installation
+
+### Devel
+
+```
+
+
+
+
+
+
+```
+### CRAN
+
+```
+
+
+
+
+
+
+```
+# r2dii.plot
+
+<details>
+
+* Version: 
+* GitHub: https://github.com/2DegreesInvesting/r2dii.data
+* Source code: NA
+* Number of recursive dependencies: 0
+
+</details>
+
+## Error before installation
+
+### Devel
+
+```
+
+
+
+
+
+
+```
+### CRAN
+
+```
+
+
+
+
+
+
+```

revdep/failures.md

@@ -27,4 +27,3 @@ test_that("In classification datasets, `code` is of type 'character' (#185)", {
   types <- unlist(lapply(datasets, function(x) typeof(x[["code"]])))
   expect_equal(unique(types), "character")
 })
-

tests/testthat/test-classification_bridge.R

@@ -51,7 +51,7 @@ test_that("outputs expected regions for weo_2020 (#253).", {
     "non opec"
   )
 
-  region_isos_weo_2020 <- region_isos[region_isos$source == "weo_2020",]
+  region_isos_weo_2020 <- region_isos[region_isos$source == "weo_2020", ]
 
   expect_equal(
     sort(unique(region_isos_weo_2020$region)),
@@ -74,7 +74,7 @@ test_that("outputs expected regions for isf_2020 (#253).", {
     "oecd pacific"
   )
 
-  region_isos_isf_2020 <- region_isos[region_isos$source == "isf_2020",]
+  region_isos_isf_2020 <- region_isos[region_isos$source == "isf_2020", ]
 
   expect_equal(
     sort(unique(region_isos_isf_2020$region)),