Clear previous results on rerun

LebeerLab · Jan 7, 2025 · 6da9033 · 6da9033
1 parent c2cfaaf
commit 6da9033
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/R/adders_taxa.R b/R/adders_taxa.R
@@ -418,6 +418,10 @@ add_prevalence <- function(
   ta, condition = NULL, relative = FALSE, fisher_test = FALSE
 ) {
 
+  # remove any pre-existing result columns
+  ta$taxa <- ta$taxa %>%
+    select(- starts_with("prevalence"), - starts_with("fisher"))
+
   fisher <- prevalence <- . <- NULL
   prev <- "prevalence"
   prev_in <- "prevalence_in"