From b08d338874a2a179829a74081bbad45b50a7d087 Mon Sep 17 00:00:00 2001
From: Daniel <mail@danielluedecke.de>
Date: Sat, 23 Sep 2023 11:27:26 +0200
Subject: [PATCH] lintr

---
 R/format_table.R | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/R/format_table.R b/R/format_table.R
index c561505dd..99944a892 100644
--- a/R/format_table.R
+++ b/R/format_table.R
@@ -290,10 +290,10 @@ format_table <- function(x,
   # df for errors
   if ("df_error" %in% names(x)) {
     x$df_error <- format_value(x$df_error, protect_integers = TRUE)
-    if (!("df" %in% names(x))) {
-      names(x)[names(x) == "df_error"] <- "df"
-    } else {
+    if ("df" %in% names(x)) {
       names(x)[names(x) == "df_error"] <- "df (error)"
+    } else {
+      names(x)[names(x) == "df_error"] <- "df"
     }
   }
   # denominator and numerator df