diff --git a/R/validateSchema.R b/R/validateSchema.R index 11bf4b9..5ecb629 100644 --- a/R/validateSchema.R +++ b/R/validateSchema.R @@ -146,6 +146,9 @@ validateSchema <- function(schema = NULL, input = NULL){ # ignore header rows varProp$row <- varProp$row[!varProp$row %in% headerRows] + if(length(varProp$row) == 0){ + varProp$row <- NULL + } } }