Update example

8Ginette8 · Feb 7, 2025 · da22728 · da22728
1 parent e82a134
commit da22728
Show file tree

Hide file tree

Showing 3 changed files with 16 additions and 2 deletions.
diff --git a/desktop.ini b/desktop.ini
@@ -0,0 +1,4 @@
+[ViewState]
+Mode=
+Vid=
+FolderType=Generic
diff --git a/inst/examples/make_ecoregion_help.R b/inst/examples/make_ecoregion_help.R
@@ -10,7 +10,12 @@ my.eco <- make_ecoregion(env = rst,
 						 nclass = 50)
 
 # Test plot
-terra::plot(my.eco)
+col_palette = colorRampPalette(c("#a6cee3", "#1f78b4", "#b2df8a", "#33a02c", 
+            "#fb9a99", "#e31a1c", "#fdbf6f", "#ff7f00", 
+            "#cab2d6", "#6a3d9a", "#ffff99", "#b15928"))
+colcol = col_palette(length(my.eco))
+my.eco$color = sample(paste0(colcol,""), length(my.eco), replace = FALSE)
+terra::plot(my.eco, col = my.eco$color)
 
 # Downloading in the European Alps the observations of one plant species
 obs.arcto <- get_gbif(sp_name = "Arctostaphylos alpinus",

diff --git a/man/make_ecoregion.Rd b/man/make_ecoregion.Rd