data <- log_filter(iris, Sepal.Length >= 7, "xx")
data <- log_filter(data, Sepal.Length < 2)
data <- log_filter(data, Sepal.Length >= 2, "yy")
get_log(data)
data <- log_filter(
list(iris1 = iris, iris2 = iris),
Sepal.Length >= 7,
"iris1",
character(0),
"Sep"
)
get_log(data)
Run the code above in your browser using DataLab