Closed teunbrand closed 5 years ago
ggsubset <- function(rowtest = NULL, omit = NULL) { rowtest <- substitute(rowtest) if (is.null(rowtest)) { rowtest <- substitute(TRUE) } omit <- substitute(omit) if (is.null(omit)) { omit <- substitute(TRUE) } function(x) subset.data.frame(x, eval(rowtest), -eval(omit)) }
Added and scheduled for next push.
ggsubset <- function(rowtest = NULL, omit = NULL) { rowtest <- substitute(rowtest) if (is.null(rowtest)) { rowtest <- substitute(TRUE) } omit <- substitute(omit) if (is.null(omit)) { omit <- substitute(TRUE) } function(x) subset.data.frame(x, eval(rowtest), -eval(omit)) }