Make pointsSpatial shared if number datasets is 1

PhilipMostert · Jun 13, 2024 · b91175f · b91175f
1 parent d7fc987
commit b91175f
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 1 deletion.
diff --git a/R/specifyMarks.R b/R/specifyMarks.R
@@ -1581,6 +1581,7 @@ specifyMarks$set('private', 'addData', function(dataList, responseCounts, respon
                      }
 
                    }
+
                      private$Components <- pointData$makeComponents(spatial = private$Spatial, intercepts = private$Intercepts,
                                                                     marks = markNames, datanames = dataNames, speciesname = speciesName,
                                                                     multinomnames = multinomNames, pointcovariates = pointCovariates,

diff --git a/R/startMarks.R b/R/startMarks.R
@@ -172,7 +172,8 @@ startMarks <- function(..., spatialCovariates = NULL,
 
   } 
   else initialnames <- NULL
-
+
+  if (length(initialnames) == 1) pointsSpatial <- 'shared'
 
   if (!is.null(temporalName)) temporalModel <- deparse1(list(model = 'ar1'))
   else temporalModel <- NULL
-Original file line number
+Diff line change
@@ Expand Up @@
                          }
                        }
                          private$Components <- pointData$makeComponents(spatial = private$Spatial, intercepts = private$Intercepts,
                                                                         marks = markNames, datanames = dataNames, speciesname = speciesName,
                                                                         multinomnames = multinomNames, pointcovariates = pointCovariates,
@@ Expand Down @@