correct bf parsing

jsocolar · Oct 3, 2023 · 96ce164 · 96ce164
1 parent 631d080
commit 96ce164
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/R/flock.R b/R/flock.R
@@ -212,7 +212,7 @@ flock_ <- function(output, f_occ, f_det, flocker_data, data2 = NULL,
   }
 
   if(brms::is.brmsformula(f_det)){
-    f_det_txt <- format(f_det$formula)
+    f_det_txt1 <- format(f_det$formula)
     is_valid <- grepl("^det[[:blank:]]*~", f_det_txt)
     assertthat::assert_that(
       is_one_logical(is_valid),
@@ -224,6 +224,7 @@ flock_ <- function(output, f_occ, f_det, flocker_data, data2 = NULL,
                    "must be a detection formula beginning with `det ~`"
       )
     )
+    f_det_txt <- paste0("~", strsplit(f_det_txt1)[[1]][2])
   } else {
     f_det_txt <- paste0(deparse(f_det), collapse = "")
   }