Update r_functionality.R

Author: M-Colley

r_functionality.R

@@ -615,11 +615,13 @@ ggbetweenstatsWithPriorNormalityCheckAsterisk <- function(data, x, y, ylab, xlab
       dplyr::mutate(asterisk_label = ifelse(`p.value` < 0.05 & `p.value` > 0.01, "*", ifelse(`p.value` < 0.01 & `p.value` > 0.001, "**", ifelse(`p.value` < 0.001, "***", NA)))))
 
    df <- df %>% dplyr::filter(!is.na(asterisk_label))
-  
-  #y_positions_asterisks <- car::recode(df$asterisk_label, "NA=0.0; else=7.50") # 
-  # adjust to maximum value in the dataset
+
+    
+  # adjust to the maximum value in the dataset
   lowestNumberText <- paste0("NA=0.0; else=", toString(round((max(data[[y]]) + 0.5), digits = 2)))
-  y_positions_asterisks <- recode(df$asterisk_label, recodes = lowestNumberText)
+  # Explicitly call car::recode to avoid conflicts with dplyr::recode
+  # WRAP result in as.numeric() to fix the binary operator error
+  y_positions_asterisks <- as.numeric(car::recode(df$asterisk_label, recodes = lowestNumberText))
 
 
   count <- 0
@@ -2767,3 +2769,4 @@ geom_signif_wrapper <- function(...) ggsignif::geom_signif(...)
 shapiro_test_wrapper <- function(...) stats::shapiro.test(...)
 extract_stats_wrapper <- function(...) ggstatsplot::extract_stats(...)
 
+