improved checkArg function

ManonMartin · Mar 18, 2024 · 06cbb03 · 06cbb03
1 parent 6f2496d
commit 06cbb03
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/R/checkArg.R b/R/checkArg.R
@@ -29,10 +29,10 @@ checkArg <- function(arg, checks, can.be.null = FALSE) {
       stop(deparse(substitute(arg)), " is null.")
     }
   } else {
-    for (c in checks) {
-      if (!check.list[[c]][[1]](arg)) {
+    for (cc in checks) {
+      if (!check.list[[cc]][[1]](arg)) {
         stop(deparse(substitute(arg)), " is not ",
-             check.list[[c]][[2]], ".")
+             check.list[[cc]][[2]], ".")
       }
     }
   }