如何用validate包验证data.frame中Date列的字段类型？

解决方案 #

validate包完全支持字段类型检查，你遇到的语法错误是因为规则写法不符合validator的评估逻辑——默认规则是逐元素判断，而inherits()、is()这类函数是针对整个向量的类型判断，需要明确指定为列级检查。下面是三种可行的写法：

1. 使用colwise()包裹列级判断函数 #

用colwise()告诉验证器这是针对整个列的检查：

library(validate)
dat <- data.frame(
    when=seq(as.Date(Sys.time()), length.out=5, by="1 day"),
    value=runif(5)  
)

rules <- validator(
    "when" %in% names(.),
    colwise(inherits, "Date")(when), # 检查when列是否为Date类型
    "value" %in% names(.),
    colwise(is.numeric)(value)
)

# 执行验证并查看结果
result <- confront(dat, rules)
summary(result)

2. 使用validate内置的vld_*验证函数 #

validate提供了预定义的vld_inherits等函数，直接调用即可适配验证器语法：

rules <- validator(
    "when" %in% names(.),
    vld_inherits(when, "Date"),
    "value" %in% names(.),
    vld_is_numeric(value)
)

result <- confront(dat, rules)
summary(result)

3. 自定义列级验证函数 #

如果要使用自定义函数，确保函数针对向量判断，并用colwise包装：

is_col_date <- function(x) inherits(x, "Date")

rules <- validator(
    "when" %in% names(.),
    colwise(is_col_date)(when),
    "value" %in% names(.),
    is.numeric(value)
)

result <- confront(dat, rules)
summary(result)

问题原因解释 #

validator函数默认会把规则表达式按逐元素的方式评估，而inherits(when, "Date")这类代码是针对整个列向量的判断，不是逐元素的，因此会被识别为无效语法。用colwise()包裹后，验证器会理解这是对整个列的检查，而非单个元素。

内容的提问来源于stack exchange，提问作者Karsten W.