if (FALSE) {
call_plan_with_results <- structure(list(
resp_vars =
c(
"SBP_0", "DBP_0", "VO2_CAPCAT_0",
"BSG_0"
), group_vars = c(
"USR_BP_0", "USR_BP_0", "USR_VO2_0",
"USR_BP_0"
), co_vars = list("SEX_0", "SEX_0", "SEX_0", "SEX_0")
),
class = "data.frame", row.names = c(
NA,
-4L
)
)
call_plan_with_results[["results"]] <-
list(NA, 2, "Hello", ggplot2::ggplot())
result_groups <-
colnames(call_plan_with_results)[2:(ncol(call_plan_with_results) - 1)]
pipeline_recursive_result(call_plan_with_results, result_groups)
pipeline_recursive_result(call_plan_with_results, rev(result_groups))
}
Run the code above in your browser using DataLab