R - 将 apply 与具有多个参数的自定义函数一起使用

Question

Currently I've been only able to do this with a For-Loop:

for(i in 1:nrow(PS_check_no_match)){
  add_error("Warning"
            ,"professional services QA Check"
            ,PS_check_no_match$msg[i]
            ,FALSE)  
}

I'm trying to do something like this to replace the for loop.

apply(PS_check_no_match$msg
      ,1
       ,add_error("Warning"
                  ,"professional services QA Check"
                  ,PS_check_no_match$msg
                  ,FALSE))

Answer 1

You could use a function of the argument you want to loop through:

apply(PS_check_no_match$msg
      ,1
      ,function(x) add_error("Warning"
                  ,"professional services QA Check"
                  ,x
                  ,FALSE))