add species ids as names to partialy saved data

project-gen3sis · Jun 30, 2020 · 656af29 · 656af29
1 parent 55515ae
commit 656af29
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/R/observations.R b/R/observations.R
@@ -136,6 +136,7 @@ save_extract <- function(element) {
   save_landscape()
   dir.create(file.path(config$directories$output, element), showWarnings = F, recursive = T)
   tmp <- lapply(data$all_species, function(x){return(x[[element]])})
+  names(tmp) <- sapply(data$all_species, function(x){x$id})
   saveRDS(object = tmp,
           file = file.path(config$directories$output, element, paste0(element, "_t_", vars$ti, ".rds")))
 }