changed priority of classid identification, giving priority to icos s…

…ite list.
geco-bern · Jul 24, 2024 · 91ffeb3 · 91ffeb3
1 parent b96d109
commit 91ffeb3
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 2 deletions.
diff --git a/data-raw/01_collect_meta-data.R b/data-raw/01_collect_meta-data.R
@@ -5,6 +5,7 @@
 # below)
 
 library(ingestr)
+# remotes::install_github("bluegreen-labs/icoscp")
 library(icoscp)
 library(RCurl)
 library(XML)

diff --git a/data-raw/02_compile_final_site_list.R b/data-raw/02_compile_final_site_list.R
@@ -175,7 +175,7 @@ df <- df |>
  koeppen_code = ifelse(is.na(koeppen_code), koeppen_code_falge, koeppen_code)
  )
 
-## Get missing data from ICOS site list file -----------------------------------
+## Overwrite classid using info from ICOS site list file -----------------------
 siteinfo_icos <- readr::read_csv(
  here::here(
  "data-raw/meta_data/sites_list_icos.csv"
@@ -191,7 +191,7 @@ df <- df |>
  mutate(
  lon = ifelse(is.na(lon), lon_icos, lon),
  lat = ifelse(is.na(lat), lat_icos, lat),
- classid = ifelse(is.na(classid), classid_icos, classid)
+ classid = ifelse(is.na(classid_icos), classid, classid_icos)
  )
 
 ## Get still missing koeppen-geiger info from global map------------------------