small error fixes to RMD and occDetFunc function

DylanCarbone · Jan 24, 2024 · 6f8141d · 6f8141d
1 parent 5c9169a
commit 6f8141d
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 3 deletions.
diff --git a/R/occDetFunc.r b/R/occDetFunc.r
@@ -716,8 +716,9 @@ 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(),

diff --git a/pre_vignette/sparta_vignette.Rmd b/pre_vignette/sparta_vignette.Rmd
@@ -417,7 +417,7 @@ str(myData)
 system.time({
 occ_out <- occDetModel(taxa = myData$taxa,
                        site = myData$site,
-                       time_period = myData$time_period,
+                       survey = ymd(myData$time_period),
                        species_list = c('a','b','c','d'),
                        write_results = FALSE,
                        n_iterations = 200,