check fix

bbsBayes · Oct 3, 2024 · 98182d0 · 98182d0
1 parent 5af5654
commit 98182d0
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/checks.R b/R/checks.R
@@ -441,7 +441,7 @@ check_sf <- function(sf, check_poly = FALSE, col = FALSE) {
       stop("`", nm, "` missing column `strata_name`", call. = FALSE)
     }
     # Check for correct column type
-    if(!class(sf$strata_name) %in% c("character")) {
+    if(col && !class(sf$strata_name) %in% c("character")) {
       stop("`", nm, "` column `strata_name` must be class character", call. = FALSE)
     }