Update R/compare_ard_helpers.R

Co-authored-by: Davide Garolini <dgarolini@gmail.com>
Signed-off-by: Malan <64360731+malanbos@users.noreply.github.com>

Author: malanbos

R/compare_ard_helpers.R

@@ -214,14 +214,19 @@
     }
   }
 
+  # perform inner join to compare only matching rows
   # perform inner join to compare only matching rows
   comparison <- dplyr::inner_join(
     x_selected,
     y_selected,
     by = keys,
     suffix = c(".x", ".y")
-  )
-
+  ) |> 
+    unlist_ard_columns()
+  
+  # Remove "cards" class from the object
+  class(comparison) <- setdiff(class(comparison), "card")
+  
   # build mismatch data frame for each compare column
   lapply(
     stats::setNames(compare, compare),