miscnotes.R

###
### Scenario Index Table
### 
..AND <- function(..., .env = rlang::caller_env()){
  dd <- pryr::dots(...)
  Reduce("&", lapply(dd, eval, envir = .env))
}

..OR <- function(..., .env = rlang::caller_env()){
  dd <- pryr::dots(...)
  Reduce("|", lapply(dd, eval, envir = .env))
}

dt <- data.table::as.data.table(iris)
data.table::setnames(dt, letters[1:5])

dt[..AND(a > 5, b > 3, c*d <= .3)]
dt[ ..OR(a > 5, b > 3, c*d <= .3)]
   ..AND(a > 5, b > 3, c*d <= .3, .env = dt)