以相同的顺序将所有逻辑规则与一个向量匹配

Question

我有一个需要两个向量的函数

1. 逻辑规则向量pat
2. 数据向量dat。

该函数检查所有规则是否已按正确顺序执行

dat <- 1:100
pat <- c( "dat<4 & dat>2", "dat>6", "dat>99" )

yes.seq.rule <- function(pat , dat){
  lv <- rep(F,length(pat))
  k <- 1
  for(i in 1:length(dat)){
      res <- eval(parse(text = pat[k]))[i]
      if(res) 
      {
        lv[k] <- TRUE
        k <- k+1 
      }
    if(k==length(pat)+1) break
  }
  return(  all(lv)  )
}

函数返回真/假

here 用完全相同的函数问了完全相同的问题，唯一的区别是在这个问题中，向量pat 是逻辑规则

问题： 有没有可能让这个功能更快

Answer 1

这是一个仅循环表达式而不是数据的选项

f1 <- function(pat, dat) {
   tmp_lst <- lapply(pat, function(x) {
            i1 <- eval(parse(text = x))
              if(any(i1)) min(which(i1))
       })
   if(!any(sapply(tmp_lst, is.null))) {
        tmp <- unlist(tmp_lst)
        identical(tmp, sort(tmp))
    } else FALSE
 }
   

f1(pat, dat)
#[1] TRUE

---

遍历lapply、evaluate 中的patterns，获取minimum 索引，检查只有FALSE 的情况，即是否有任何模式返回所有FALSE，那么结果是假的， 否则unlist 并检查它是否是identical 和sorted 索引

基准测试

pat <- c( "dat<4 & dat>2", "dat>6", "dat>199", "dat>1e7" )
dat <- 1:1000000
system.time(f1(pat, dat))
#  user  system elapsed 
# 0.036   0.005   0.042