From a25b31120494ad82acb90cd05dcab3500c823c74 Mon Sep 17 00:00:00 2001
From: Daniel <mail@danielluedecke.de>
Date: Wed, 7 Feb 2024 13:13:47 +0100
Subject: [PATCH] lintr

---
 R/data_read.R | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

diff --git a/R/data_read.R b/R/data_read.R
index a2f3b46d9..b02b7ca87 100644
--- a/R/data_read.R
+++ b/R/data_read.R
@@ -175,7 +175,10 @@ data_read <- function(path,
         value_labels <- value_labels[value_labels %in% unique(i)]
 
         # guess variable type
-        if (!is.character(i)) {
+        if (is.character(i)) {
+          # we need this to drop haven-specific class attributes
+          i <- as.character(i)
+        } else {
           # if all values are labelled, we assume factor. Use labels as levels
           if (!is.null(value_labels) && length(value_labels) == insight::n_unique(i)) {
             if (is.numeric(i)) {
@@ -189,9 +192,6 @@ data_read <- function(path,
             # else, fall back to numeric
             i <- as.numeric(i)
           }
-        } else {
-          # we need this to drop haven-specific class attributes
-          i <- as.character(i)
         }
 
         # drop unused value labels
@@ -302,9 +302,7 @@ data_read <- function(path,
   # not. Else, tell user.
   if (!is.data.frame(out)) {
     tmp <- tryCatch(as.data.frame(out, stringsAsFactors = FALSE), error = function(e) NULL)
-    if (!is.null(tmp)) {
-      out <- tmp
-    } else {
+    if (is.null(tmp)) {
       if (verbose) {
         insight::format_warning(
           paste0("Imported file is no data frame, but of class \"", class(out)[1], "\"."),
@@ -312,6 +310,8 @@ data_read <- function(path,
         )
       }
       return(out)
+    } else {
+      out <- tmp
     }
   }