geau Version: 1.0.19.0

0 errors ✔ | 0 warnings ✔ | 0 notes ✔

Note de version :
    * COORECTION so_ii_clc avec le bon scope

DESCRIPTION
    * Version: 1.0.19.0

data
    * correction de so_ii_clc

Documentation mise à jour

Vignettes
    * RAS

dev
    * RAS

dev/commit-message

-geau Version: 1.0.0.0
+geau Version: 1.0.19.0
 
 0 errors ✔ | 0 warnings ✔ | 0 notes ✔
 
 Note de version :
-    * NEW add.inset : ajout d'un encart dans une carte
-    * NEW kable_units : faire un kable en gérant les unités
+    * COORECTION so_ii_clc avec le bon scope
 
 DESCRIPTION
-    * Version: 1.0.0.0
-    
-R/add.inset.R
-    * Première version de la fonction
-
-R/kable_units.R
-    * Première version de la fonction
+    * Version: 1.0.19.0
 
 data
-    * RAS
+    * correction de so_ii_clc
 
 Documentation mise à jour
-    * add.inset.Rd
-    * kable_units.Rd
 
 Vignettes
     * RAS
 
 dev
-    * package.development.R
-    * commit-message
-        
-presentation
-
-MISC
-    * .Rbuildignore
-    * LICENSE.md: automatique
-    * NAMESPACE: automatique
+    * RAS
+
 
 

so.ii/DESCRIPTION

 Package: so.ii
 Title: Utilities very useful to share within so_ii team
-Version: 1.0.18.0
+Version: 1.0.19.0
 Authors@R:
     c(
         person(given = "Frédéric",

so.ii/data-raw/so_ii_clc.R

+# code to prepare `so_ii_clc` dataset goes here
+library(sf)
+so_ii_clc = readRDS("data-common/data/so-ii/so-ii_clc.rds")
+so_ii_clc = so_ii_clc["clc_2018"]
+
+clc_color = data.frame(
+    color = scales::alpha(
+        c(
+            "red3",
+            "darkolivegreen3",
+            "darkgreen",
+            "#4C90B4",
+            "lightblue"
+        ),
+        .2
+    ),
+    label_fr = c(
+        "Zone urbaine",
+        "Zone agricole",
+        "Forêt, zone naturelle",
+        "Zone humide",
+        "Surface d'eau"
+    ),
+    label_uk = c(
+        "Urban area",
+        "Agricultural area",
+        "Forest, natural area",
+        "Humid area",
+        "Water surface"
+    )
+) 
+so_ii_clc[["color"]] = as.character(
+    cut(
+        as.integer(substr(so_ii_clc[["clc_2018"]], 1, 1)), 
+        breaks = 5,
+        labels = clc_color[["color"]]
+    )
+)
+
+# updating datasets
+
+actual = setwd("so.ii")
+usethis::use_data(so_ii_clc, internal = FALSE, overwrite = TRUE)
+usethis::use_data(clc_color, internal = FALSE, overwrite = TRUE)
+setwd(actual)

so.ii/data-raw/so_ii_scope.R

@@ -6,50 +6,8 @@ so_ii_scope = read.csv2(
 )[["code"]]
 so_ii_scope = sort(so_ii_scope)
 
-# code to prepare `so_ii_clc` dataset goes here
-
-so_ii_clc = readRDS("data-common/data/so-ii/so-ii_clc.rds")
-so_ii_clc = so_ii_clc["code_18"]
-names(so_ii_clc) = c("clc_2018", "geometry")
-clc_color = data.frame(
-    color = scales::alpha(
-        c(
-            "red3",
-            "darkolivegreen3",
-            "darkgreen",
-            "#4C90B4",
-            "lightblue"
-        ),
-        .2
-    ),
-    label_fr = c(
-        "Zone urbaine",
-        "Zone agricole",
-        "Forêt, zone naturelle",
-        "Zone humide",
-        "Surface d'eau"
-    ),
-    label_uk = c(
-        "Urban area",
-        "Agricultural area",
-        "Forest, natural area",
-        "Humid area",
-        "Water surface"
-    )
-) 
-so_ii_clc[["color"]] = as.character(
-    cut(
-        as.integer(substr(so_ii_clc[["clc_2018"]], 1, 1)), 
-        breaks = 5,
-        labels = clc_color[["color"]]
-    )
-)
-
 # updating datasets
 
-# actual = setwd(file.path(system.file(package = "so.ii"), ".."))
 actual = setwd("so.ii")
 usethis::use_data(so_ii_scope, internal = FALSE, overwrite = TRUE)
-usethis::use_data(so_ii_clc, internal = FALSE, overwrite = TRUE)
-usethis::use_data(clc_color, internal = FALSE, overwrite = TRUE)
 setwd(actual)