lintr

easystats · Sep 30, 2023 · 0f2bd5b · 0f2bd5b
1 parent 55dfa5b
commit 0f2bd5b
Show file tree

Hide file tree

Showing 3 changed files with 9 additions and 9 deletions.
diff --git a/R/p_direction.R b/R/p_direction.R
@@ -186,8 +186,8 @@ p_direction.data.frame <- function(x, method = "direct", null = 0, ...) {
   }
 
   out <- data.frame(
-    "Parameter" = names(x),
-    "pd" = pd,
+    Parameter = names(x),
+    pd = pd,
     row.names = NULL,
     stringsAsFactors = FALSE
   )

diff --git a/R/p_map.R b/R/p_map.R
@@ -98,8 +98,8 @@ p_map.data.frame <- function(x, null = 0, precision = 2^10, method = "kernel", .
   }
 
   out <- data.frame(
-    "Parameter" = names(x),
-    "p_MAP" = p_MAP,
+    Parameter = names(x),
+    p_MAP = p_MAP,
     row.names = NULL,
     stringsAsFactors = FALSE
   )

diff --git a/R/p_significance.R b/R/p_significance.R
@@ -79,8 +79,8 @@ p_significance.data.frame <- function(x, threshold = "default", ...) {
   }
 
   out <- data.frame(
-    "Parameter" = names(x),
-    "ps" = as.numeric(ps),
+    Parameter = names(x),
+    ps = as.numeric(ps),
     row.names = NULL,
     stringsAsFactors = FALSE
   )
@@ -294,10 +294,10 @@ as.double.p_significance <- as.numeric.p_significance
   }
   # If default
   if (all(threshold == "default")) {
-    if (!is.null(model)) {
-      threshold <- rope_range(model, verbose = verbose)[2]
-    } else {
+    if (is.null(model)) {
       threshold <- 0.1
+    } else {
+      threshold <- rope_range(model, verbose = verbose)[2]
     }
   } else if (!all(is.numeric(threshold))) {
     insight::format_error("`threshold` should be 'default' or a numeric value (e.g., 0.1).")