From 2f55fd84d0da671921a057fce06758cc70579d31 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Adrian=20Du=C8=99a?= <dusa.adrian@gmail.com>
Date: Sun, 30 Mar 2025 00:03:42 +0200
Subject: [PATCH] adapt if C return a null value

---
 R/compare.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/compare.R b/R/compare.R
index afd97fd..7f44c2c 100644
--- a/R/compare.R
+++ b/R/compare.R
@@ -38,7 +38,7 @@ compare <- function(
                     }
                 })
 
-                if (is.null(ctc)) {
+                if (is.null(ctc) & !is.null(cc)) {
                     colnames(cc) <- colnames(dat)[-nc]
                     if (espresso) {
                         soles <- apply(