From 11a881bc077a35953b5196391d3a30a967846e76 Mon Sep 17 00:00:00 2001
From: Daniel <mail@danielluedecke.de>
Date: Wed, 28 Aug 2024 15:26:52 +0200
Subject: [PATCH] lintr, spell

---
 R/print-methods.R | 10 ++++++++--
 inst/WORDLIST     |  1 +
 2 files changed, 9 insertions(+), 2 deletions(-)

diff --git a/R/print-methods.R b/R/print-methods.R
index 1509188fa..4b4a81aa7 100644
--- a/R/print-methods.R
+++ b/R/print-methods.R
@@ -126,7 +126,10 @@ print.r2_bayes <- function(x, digits = 3, ...) {
       ci = attributes(x)$CI$R2_Bayes_marginal$CI,
       digits = digits
     )
-    out <- paste0(c(out, sprintf("     Marginal R2: %.*f (%s)", digits, x$R2_Bayes_marginal, r2_marginal_ci)), collapse = "\n")
+    out <- paste(c(
+      out,
+      sprintf("     Marginal R2: %.*f (%s)", digits, x$R2_Bayes_marginal, r2_marginal_ci)
+    ), collapse = "\n")
   }
 
   cat(out)
@@ -155,7 +158,10 @@ print.r2_loo <- function(x, digits = 3, ...) {
       ci = attributes(x)$CI$R2_loo_marginal$CI,
       digits = digits
     )
-    out <- paste0(c(out, sprintf("     Marginal R2: %.*f (%s)", digits, x$R2_loo_marginal, r2_marginal_ci)), collapse = "\n")
+    out <- paste(c(
+      out,
+      sprintf("     Marginal R2: %.*f (%s)", digits, x$R2_loo_marginal, r2_marginal_ci)
+    ), collapse = "\n")
   }
 
   cat(out)
diff --git a/inst/WORDLIST b/inst/WORDLIST
index 2989faf72..9c77a11fd 100644
--- a/inst/WORDLIST
+++ b/inst/WORDLIST
@@ -51,6 +51,7 @@ DAGs
 DBSCAN
 DOI
 Datenerhebung
+De
 Delacre
 Deskriptivstatistische
 DHARMa