## -----------------------------------------------------------------------------
#| include: false
library(shinyelectron)

# Show the bundled workflow verbatim so the vignette stays in sync with what
# shinyelectron actually ships.
show_template <- function() {
  path <- system.file(
    "templates", "github-actions-build.yml",
    package = "shinyelectron"
  )
  cat(c("```yaml", readLines(path), "```"), sep = "\n")
}


## -----------------------------------------------------------------------------
#| echo: false
#| results: asis
show_template()


## -----------------------------------------------------------------------------
#| eval: false
# template <- system.file(
#   "templates", "github-actions-build.yml",
#   package = "shinyelectron"
# )
# 
# dir.create(".github/workflows", recursive = TRUE, showWarnings = FALSE)
# file.copy(
#   template,
#   ".github/workflows/build-electron.yml"
# )