lintr

easystats · Aug 22, 2024 · 52ec42f · 52ec42f
1 parent 8e476a5
commit 52ec42f
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/R/p_direction.R b/R/p_direction.R
@@ -468,8 +468,8 @@ p_direction.get_predicted <- function(x,
 #' @export
 p_direction.parameters_model <- function(x, ...) {
   out <- data.frame(
-    "Parameter" = x$Parameter,
-    "pd" = p_to_pd(p = x[["p"]]),
+    Parameter = x$Parameter,
+    pd = p_to_pd(p = x[["p"]]),
     row.names = NULL,
     stringsAsFactors = FALSE
   )
@@ -523,9 +523,9 @@ p_direction.parameters_model <- function(x, ...) {
 #' @export
 as.numeric.p_direction <- function(x, ...) {
   if (inherits(x, "data.frame")) {
-    return(as.numeric(as.vector(x$pd)))
+    as.numeric(as.vector(x$pd))
   } else {
-    return(as.vector(x))
+    as.vector(x)
   }
 }