From cc6e7fad04f40a833a67b14e577b4cdbca71bcf0 Mon Sep 17 00:00:00 2001
From: Nusaibah Ibrahimi <nusaibah.ibr@gmail.com>
Date: Tue, 26 Nov 2024 00:57:07 +0100
Subject: [PATCH] correction

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

diff --git a/R/compare_grade.R b/R/compare_grade.R
index 62abd4c..85271a9 100644
--- a/R/compare_grade.R
+++ b/R/compare_grade.R
@@ -40,7 +40,7 @@ compare_grade <- function(tabR,tabSAS){
       # tab$Mineur=c(tab$Mineur,
       #              paste0("Grade ",tabSAS[!(which(tabSAS$grade%in% tabR$grade)),"grade"], " missing in R table"))
 
-    }else if (nrow(tabR)>nrow(tabSAS)){
+    }else if (ncol(tabR)>ncol(tabSAS)){
 
       tab$level=c(tab$level,"Mineur")
       tab$grade=c(tab$grade,tabR[!(which(tabR$grade%in% tabSAS$grade)),"grade"])