update

easystats · Aug 31, 2024 · cd94652 · cd94652
1 parent 9e5fd6d
commit cd94652
Show file tree

Hide file tree

Showing 3 changed files with 9 additions and 6 deletions.
diff --git a/R/p_direction.R b/R/p_direction.R
@@ -182,16 +182,16 @@ p_direction.data.frame <- function(x, method = "direct", null = 0, rvar_col = NU
     return(.p_direction_df(x, method = method, null = null, ...))
   }
 
-  stopifnot(length(rvar_col) == 1L,
-            is.character(rvar_col),
-            rvar_col %in% colnames(x))
-
+  if (length(rvar_col) != 1L && !rvar_col %in% colnames(x)) {
+    insight::format_error("The `rvar_col` argument must be a single, valid column name.")
+  }
 
   out <- p_direction(x[[rvar_col]], method = method, null = null, ...)
   x[["pd"]] <- out[["pd"]]
   x
 }
 
+
 #' @keywords internal
 .p_direction_df <- function(x, method = "direct", null = 0, ...) {
   obj_name <- insight::safe_deparse_symbol(substitute(x))

diff --git a/man/bayestestR-package.Rd b/man/bayestestR-package.Rd
diff --git a/man/p_direction.Rd b/man/p_direction.Rd