# NOT RUN {
# set-up condition_df
cdf <- dplyr::tibble(
statement = c(
"Sepal.Width > quantile(Sepal.Width, 0.1)",
"Petal.Width > quantile(Petal.Width, 0.1)",
"Petal.Length > quantile(Petal.Length, 0.8)"),
scope_at = list(NULL, NULL, c(1,2)))
fdf <- filter_scoped_df(
dplyr::group_by(iris,
Species),
condition_df = cdf)
# Example of invalid expression:
# column 'Spec' does not exist in iris
# "Spec == 'setosa'"
# }
Run the code above in your browser using DataLab