R/plan_details.R

In tpemartin/rmd2drake: Turn R Markdown into a drake plan and make it

#' Generate grandplan_XXX.R from active Rmd main plan
#'
#' @return A list of grandplanDetails
#' @export
#'
#' @examples none
generateGrandplanScriptFromActiveRmd <- function(){
  require(dplyr)
  require(purrr)
  # rstudioapi::getSourceEditorContext() -> activeSource
  # activeSource$path -> activeRmd
  extract_activeEditorFilename()
  activeRmd <- .activeFile

  require(dplyr)
  mainplanDetails <-
    {
      activeRmd %>%
        extract_infoFromFilename() -> mainplanDetails0
      # make frontmatter path absolute and create params string
      #  for extra makecondition
      mainplanDetails0 %>%
        makeup_frontmatter() %>%
        ## build scripts of main and sub plans
        purl_drakeSubplanOnly2() %>%
        # augment makeconditions
        augment_makecondition() %>%
        augment_planScript_make_vis_components()
    }

  # get mainplan plan object in global env
  mainplanDetails$completePlanMkVisScript %>%
    {parse(text=.)} %>%
    eval(envir = .GlobalEnv)

  # subplans ----------------------------------------------------------------
  yml <- rmarkdown::yaml_front_matter(activeRmd)
  if("drake_subplans" %in% names(yml)){
    subplans = vector("list", length(mainplanDetails$frontmatter$drake_subplans))
    for(.x in seq_along(mainplanDetails$frontmatter$drake_subplans)){
      subplans[[.x]] <-
        {
          mainplanDetails$frontmatter$drake_subplans[[.x]] %>%
            extract_infoFromFilename() -> subplans[[.x]]

          subplans[[.x]] %>%
            # make frontmatter path absolute and create params string
            #  for extra makecondition
            makeup_frontmatter() -> subplans[[.x]]

          subplans[[.x]]$frontmatter$drake_cache <-
            mainplanDetails$frontmatter$drake_cache

          ## build scripts of main and sub plans
          subplans[[.x]] %>%
            purl_drakeSubplanOnly2() %>%
            # augment makeconditions
            augment_makecondition() %>%
            augment_planScript_make_vis_components() -> subplans[[.x]]

          # get subplan plan object to .GlobalEnv
          subplans[[.x]]$completePlanMkVisScript %>%
            {parse(text=.)} %>%
            eval(envir = .GlobalEnv)

          subplans[[.x]]
        }

    }
    # produce grandplan object (a combo plan) in global environment
    generate_grandplan(mainplanDetails, subplans)

    grand_planScript = {
      grandplan %>%
        get_grandDrakePlanScript(mainplanname = mainplanDetails$planname)
    }

    # produce complete grandplan script
    grand_planScript %>%
      build_grandplanDetails(mainplanDetails, subplans) ->
      grandplanDetails

    grandplanDetails %>%
      augment_planScript_make_vis_components() ->
      grandplanDetails

    destfile = file.path(
      mainplanDetails$root,
      paste0("grandplan_",mainplanDetails$filetitle,".R")
    )
    xfun::write_utf8(
      grandplanDetails$completePlanMkVisScript,
      con=destfile
    )
  }


  invisible(grandplanDetails)
}