9  create_chunks()

Diagram

Code

create_chunks <- function(results) {
  list(
    "param_import_chunk" = c(
      "```{r}",
      "#| echo: false",
      "",
      paste0("these_results <- params$all_results[['", results$fn_name, "']]"),
      "```"
    ),
    "fn_print_chunk" = c(
      "```{r}",
      results$fn_body,
      "```"
    )
  )
}