R/insert_chunk.R

In saros.base: Base Tools for Semi-Automatic Reporting of Ordinary Surveys

#' Mass Create Elements of A Certain Type
#'
#' @inheritParams draft_report
#' @inheritParams gen_qmd_chapters
#'
#' @param chapter_structure_section *Overview of chapter section*
#'
#'   `obj:<data.frame>|obj:<tbl_df>` // Required
#'
#'   Data frame (or tibble, possibly grouped). Must contain column 'dep'
#'   with similar items. See `draft_report()`.
#'
#' @param grouping_structure *Vector of groups*
#'
#'  `vector<character>` // *default:* `NULL` (`Optional`)
#'
#'  Internal usage.
#'
#' @return Named list of elements, where each element can UNFINISHED.
#' @importFrom rlang !!!
#' @keywords internal
#'

insert_chunk <-
  function(chapter_structure_section,
           grouping_structure,
           template_variable_name = ".template") {
    chapter_structure_section <-
      dplyr::grouped_df(
        chapter_structure_section,
        vars = unname(grouping_structure)
      ) |>
      droplevels()
    #####
    # Early returns
    # chapter and element_name is NA
    if (all(!is.na(chapter_structure_section$chapter)) &&
      all(is.na(as.character(chapter_structure_section$.template_name)))) {
      return(character())
    }

    if (all(is.na(as.character(chapter_structure_section$.variable_name_dep)))) {
      return(character())
    }


    # Re-group chapter_structure_section
    grouping_structure <- grouping_structure[!grouping_structure %in% "chapter"]

    chapter_structure_section <-
      dplyr::grouped_df(
        chapter_structure_section,
        vars = unname(grouping_structure)
      )
    chapter_structure_section <- droplevels(chapter_structure_section)


    section_key <- chapter_structure_section
    section_key <- dplyr::ungroup(section_key)
    section_key <- dplyr::distinct(section_key, dplyr::pick(tidyselect::all_of(grouping_structure)))
    if (nrow(section_key) > 1) cli::cli_warn("Something weird going on in grouping.")

    ## Collapsing the chapter_structure_section and inserting it into the template
    out <- collapse_chapter_structure_to_chr(chapter_structure_section)


    tryCatch(glue::glue_data(out, out[[template_variable_name]]),
      error = function(cnd) glue_err(cnd, arg_name = "chapter_structure$.template")
    )
  }