比较两个不同列表的元素

Question

我有两个参数列表，一个列表包含参数值（parameters，下例），另一个列表包含每个参数可以采用的所有枚举值（parameters.enum）。

参数不是强制性的，所以它们可以是NULL。所有参数未在parameters.enum中定义，如果参数在parameters.enum中缺失，则此参数没有限制值。

parameters.enum <- list(a = c("a1", "a2"), 
         b = c("b1", "b2"), 
         c = "c1") 

parameters <- list(a = "a1", #allowed 
        b = "a1", #not allowed 
        c = NULL, #allowed 
        d = "aaa") #allowed 

对于parameter每个非NULL参数和parameters.enum定义，我想检查，如果他们采取了有效的值。如果不是，我想显示一条消息，例如：'b' should be one of "b1", "b2"。

目前我使用一个循环来实现我想要什么：

for (i in seq_along(parameters)) { 
    j <- which(names(parameters.enum) == names(parameters[i])) 
    if (length(j) != 0L && !is.null(parameters[[i]]) && !parameters[[i]] %in% parameters.enum[[j]]) { 
    cat("Parameter \'", names(parameters[i]), "\' should be one of ", paste0("\"", parameters.enum[[j]], "\"", collapse = ", "), sep = "") 
    } 
} 

但我觉得有可能是实现这一目标更直接的和优雅的方式，你有什么想法？谢谢 ！

Answer 1

这是一个循环遍历参数并使用match.arg的方法。结果是可以用于进一步处理的列表：

results <- lapply(names(parameters), function(i) { 
    if (!is.null(parameters.enum[[i]])) { 
    try(match.arg(parameters[[i]], parameters.enum[[i]])) 
    } 
})