get variable names

.Rhistory

@@ -1,6 +1,3 @@
-adj_cellsL
-adj_cellsL <- split(adj_cells[,2], adj_cells[,1])
-adj_cellsL
 ids_dups <- unique(unlist(adj_cellsL))
 ids_dups
 which(no_dups %in% ids_dups)
@@ -510,3 +507,6 @@ gc()
 all(pam == ppam)
 gc()
 all(Matrix::rowSums(pam) == Matrix::rowSums(ppam))
+covr::codecov()
+testthat::context_start_file("check-output")
+rm(list = ls())

R/bg_by_date.R

@@ -120,10 +120,12 @@ bg_by_date <- function(this_species,
     }
     #xys <- xys[-rm_ids,]
     if(nrow(layer_val) ==0L) return()
+    snam <- paste0("env_layers@",names(attributes(env_layers))[1])
+    snam <- eval(parse(text = paste0(snam,"$get_sourcenames()")))
     df1 <- data.frame(ID_YEAR = all_layers$dir_paths[x],
                       cellids,
                       layer_val= layer_val[[1]],
-                      var_name = env_layers@cpp$get_sourcenames())
+                      var_name = snam)
     return(df1)
   },.progress = TRUE,.options = furrr::furrr_options(seed = NULL))
   gc()

tests/testthat/test-tenm.R

@@ -1,6 +1,6 @@
 library(testthat)
 library(tenm)
-testthat::context_start_file("check-output")
+#testthat::context_start_file("check-output")
 # Test
 test_that("sp_temporal_data, returns an object of class sp.temporal.modeling", {
   data("abronia")