如何从XML提取参数自动生成dataverifyr的验证规则？

核心方案 #

问题根源是直接用未求值的代码片段拼接，得通过字符串插值+表达式解析，把info列表里的字段名、参数值替换成实际内容，生成可序列化的规则对象。

具体实现步骤 #

1. 定义规则模板 #

先写好带占位符的规则字符串模板，用{}标记需要替换的内容：

# 长度验证模板，适配min_length/max_length参数
length_rule_template <- "{field} %>% stringr::str_length() >= {min_length} & stringr::str_length() <= {max_length}"

2. 遍历info生成表达式 #

用glue完成字符串插值，再转成R表达式，避免直接拼接字符串的语法问题：

library(glue)
library(rlang)
library(purrr)

# 示例info列表（替换成你的实际数据）
info <- list(
  list(field = "N_6_18_EC_Type", min_length = 6, max_length = 18),
  list(field = "User_Email", min_length = 5, max_length = 50)
)

# 生成规则表达式列表
rules_expr <- map(info, function(item) {
  # 插值生成规则字符串
  rule_str <- glue(length_rule_template, .envir = item)
  # 转成可执行的R表达式
  parse_expr(rule_str)
})

3. 生成dataverifyr规则对象 #

把表达式转成dataverifyr的Rule对象，确保符合包的要求：

library(dataverifyr)

rules <- map(rules_expr, function(expr) {
  # 自动生成规则名称，也可以自定义
  rule_name <- glue("Length validation for {expr[[2]]}")
  rule(expr, name = rule_name)
})

4. 导出为YAML配置文件 #

用yaml包把规则列表导出成可复用的配置文件：

library(yaml)

write_yaml(rules, "data_validation_rules.yaml")

关键提醒 #

• 避免直接用eval执行字符串，先转成表达式再生成规则对象，这样导出的YAML才能被正确复用
• 用glue做插值比手动拼接字符串更可靠，能自动处理变量的语法格式
• 确保info列表的字段名和模板里的占位符完全匹配，否则会出现插值失败

内容的提问来源于stack exchange，提问作者slackline