Commit 642e2659 authored by Grelot Frederic's avatar Grelot Frederic 🏊🏿
Browse files

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
parent aa9ae113
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
* RAS
MISC
* .Rbuildignore
* LICENSE.md: automatique
* NAMESPACE: automatique
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",
......
# 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)
......@@ -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)
No preview for this file type
No preview for this file type
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment