From 52ec42f37e2746b30430b9984f85be1789cbd682 Mon Sep 17 00:00:00 2001
From: Daniel <mail@danielluedecke.de>
Date: Fri, 23 Aug 2024 00:06:13 +0200
Subject: [PATCH] lintr

---
 R/p_direction.R | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/R/p_direction.R b/R/p_direction.R
index 477f97c26..e45d89be4 100644
--- 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)
   }
 }