diff --git a/R/common.R b/R/common.R
index 480b6a0..cb78f65 100644
--- a/R/common.R
+++ b/R/common.R
@@ -500,7 +500,7 @@ excludeNaListwise <- function(dataset, columns = NULL) {
   if (is.null(columns))
     return(dataset[stats::complete.cases(dataset), , drop = FALSE])
 
-  if (!character(columns))
+  if (!is.character(columns))
     stop("excludeNaListwise: the `columns` argument must be a character vector.")
 
   if (!all(columns %in% colnames(dataset)))