data <- log_filter(iris, Sepal.Length >= 7, "Sep")
print_log(data)
data <- log_filter(
list(
adsl = iris,
iris2 = iris,
mtcars = mtcars,
iris3 = iris
),
Sepal.Length >= 7,
"adsl",
character(0),
"adsl filter"
)
data <- log_filter(data, Sepal.Length >= 7, "iris2", character(0), "iris2 filter")
print_log(data)
print_log(data, incl = FALSE)
print_log(data, incl.adsl = FALSE, incl = FALSE)
Run the code above in your browser using DataLab