From 2afac67e7227334ac51c11a8e6f0bdd583743035 Mon Sep 17 00:00:00 2001
From: vlucet <valentin.lucet@gmail.com>
Date: Fri, 24 Mar 2023 13:20:19 -0400
Subject: [PATCH 1/2] attempt to fix by trying to meet the requirements of the
 expected list format in code

---
 R/varprop_check.R | 12 ++++++++++--
 1 file changed, 10 insertions(+), 2 deletions(-)

diff --git a/R/varprop_check.R b/R/varprop_check.R
index 216ad40..8231f70 100644
--- a/R/varprop_check.R
+++ b/R/varprop_check.R
@@ -7,8 +7,12 @@ varprop_check <- function(object){
 
   # make a skeleton for the detection function parameters over all models
   parskel <- list()
-  for(i in seq_along(object$old_model$ddf)){
-    parskel[[i]] <- object$old_model$ddf[[i]]$par
+  if(class(object) == "list") {
+    for(i in seq_along(object$old_model$ddf)){
+      parskel[[i]] <- object$old_model$ddf[[i]]$par
+    }
+  } else if(class(object) == "dsm_varprop"){
+    parskel[[1]] <- object$old_model$ddf$par
   }
 
   # which parameters in the GAM are only in the refit?
@@ -19,6 +23,10 @@ varprop_check <- function(object){
   ddf_corrections <- relist(extra_gam_pars, parskel)
 
   vp_diag <- list()
+  
+  if(class(object) == "dsm_varprop") {
+    object$old_model$ddf <- list(object$old_model$ddf)
+  }
 
   for(ii in seq_along(object$old_model$ddf)){
     # get the data in order

From c3cf5321cddce70db840cd83947d5a2eacdf7a1c Mon Sep 17 00:00:00 2001
From: "Val. Lucet" <VLucet@users.noreply.github.com>
Date: Wed, 26 Mar 2025 19:13:44 -0400
Subject: [PATCH 2/2] Update DESCRIPTION

temporarily change the roles of first aut to allow install
---
 DESCRIPTION | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/DESCRIPTION b/DESCRIPTION
index fdf4fd4..ffa5a3b 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -6,7 +6,7 @@ LazyLoad: yes
 Authors@R: 
   c(person(given=c("David", "L."),
            family="Miller",
-           role=c("aut")),
+           role=c("cre")),
     person(given="Eric",
            family="Rexstad",
            role="ctb"),