docs/make_vignettes.R

In brian-j-smith/MachineShop: Machine Learning Models and Tools

dest <- "vignettes"

out <- file(file.path(dest, "UserGuide.Rmd"), "w")

sourceLines <- function(file) {
  c(readLines(file.path("docs", "src", file)), "\n")
}

files <- c(
  "UserGuide.Rmd",
  "overview.Rmd",
  "using_example.Rmd",
  "using_fit.Rmd",
  "using_variables.Rmd",
  "using_responses.Rmd",
  "using_metrics.Rmd",
  "using_resample.Rmd",
  "using_analyses.Rmd",
  "using_strategies.Rmd",
  "using_settings.Rmd",
  "using_extensions.Rmd",
  "reference_models.Rmd",
  "reference_metrics.Rmd"
)

for (file in files) {
  writeLines(sourceLines(file), out)
}

writeLines("# References", out)

close(out)

file.copy("docs/src/setup.R",
          file.path(dest, "setup.R"),
          overwrite = TRUE)
file.copy("docs/src/img/using_strategies_tune_plot-1.png",
          file.path(dest, "img/using_strategies_tune_plot-1.png"),
          overwrite = TRUE)
file.copy("docs/src/img/FigModelDAG.png",
          file.path(dest, "img/FigModelDAG.png"),
          overwrite = TRUE)
file.copy("docs/src/img/FigNestedCV.png",
          file.path(dest, "img/FigNestedCV.png"),
          overwrite = TRUE)
file.copy("docs/src/bibliography.bib",
          file.path(dest, "bibliography.bib"),
          overwrite = TRUE)