fix session.info version error

Fixes #258
BiologicalRecordsCentre · Mar 21, 2024 · 0396a45 · 0396a45
1 parent 2973f6d
commit 0396a45
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/R/occDetFunc.r b/R/occDetFunc.r
@@ -716,8 +716,8 @@ occDetFunc <- function (taxa_name, occDetdata, spp_vis, n_iterations = 5000, nyr
 
     # get the sessionInfo and coerce into a useable format
     session.info <- sessionInfo()
-    packages <- c(sapply(session.info[7][[1]], function(x) x$Version),
-                  sapply(session.info[8][[1]], function(x) x$Version))
+    packages <- c(sapply(session.info$otherPkgs, function(x) x$Version),
+                  sapply(session.info$loadedOnly, function(x) x$Version))
 
     MD <- list(method = 'sparta::occDetFunc',
                call =   call <- match.call(),
@@ -791,4 +791,4 @@ occDetFunc <- function (taxa_name, occDetdata, spp_vis, n_iterations = 5000, nyr
     if(write_results) save(out, file = file.path(output_dir, paste(taxa_name, ".rdata", sep = "")))  
     return(out)
   }  	
-
+