# NOT RUN {
d <- read_rfiles(tidycode_example("example_plot.R"))
# Unnest a model call
d %>%
unnest_calls(expr)
# Unnest a model call and keep the call itself using the drop parameter
d %>%
unnest_calls(expr, drop = FALSE)
# }
Run the code above in your browser using DataLab