Have an option to save output of greta installation process to a single log file

[njtierney]

something like

greta_install_deps(write_logfile = TRUE, logfile_path = NULL)

Which then saves the logfile to something like: "greta-logfile-YYYY-MM-DD.md"

The .md file has HTML "details" tags that might looks like this

miniconda installation

heaps and heaps of stuff

"greta-env" creation

heaps more stuff

"python dependencies" installation

heaps more stuff

[njtierney]

Or alternatively provide a function that writes out all of the notes files.

Something like the following works - although there's probably a better way using {whiskers} or {epoxy} or other log file systems

summary_details <- function(summary, code) {
  # capture code but don't run it
  glue::glue(
    "
    <details>
      <summary>
        [summary]
      </summary>
  ```
        {[code]}
  ```
    </details>
  ",
    .open = "[",
    .close = "]"
  )
}

greta_install_summary_conda_error <- summary_details(
  "Conda create error",
  ".internals$greta_stash$conda_create_error"
)
greta_install_summary_conda_output <- summary_details(
  "Conda create output",
  ".internals$greta_stash$conda_create_notes"
)
greta_install_summary_conda_install_error <- summary_details(
  "Conda install error",
  ".internals$greta_stash$conda_install_error"
)
greta_install_summary_conda_install_notes <- summary_details(
  "Conda install notes",
  ".internals$greta_stash$conda_install_notes"
)
greta_install_summary_miniconda_error <- summary_details(
  "Miniconda install error",
  ".internals$greta_stash$miniconda_error"
)
greta_install_summary_miniconda_notes <- summary_details(
  "Miniconda install notes",
  ".internals$greta_stash$miniconda_notes"
)

greta_install_notes <- glue::glue_collapse(
  x = c(
    "# Greta installation notes",
    greta_install_summary_conda_error,
    greta_install_summary_conda_output,
    greta_install_summary_conda_install_error,
    greta_install_summary_conda_install_notes,
    greta_install_summary_miniconda_error,
    greta_install_summary_miniconda_notes
  ),
  sep = "\n\n"
)

glue::glue(greta_install_notes) %>% 
  readr::write_lines(file = "~/Downloads/greta-log.md")

rmarkdown::render("~/Downloads/greta-log.md")

[njtierney]

Which yields: