## ----setup, include = FALSE---------------------------------------------------
knitr::opts_chunk$set(collapse = TRUE, comment = "#>")
library(rzig)

## ----create-------------------------------------------------------------------
path <- file.path(tempdir(), "updatedpkg")
create_rzig_package(path, tests = FALSE)

## ----current------------------------------------------------------------------
result <- update_rzig(path)
result

## ----customize----------------------------------------------------------------
makevars <- file.path(path, "src", "Makevars.in")
cat("# Built with a custom flag.\n", file = makevars, append = TRUE)
result <- update_rzig(path)
result

## ----status-------------------------------------------------------------------
status <- rzig_status(path)
status[status$step == "Scaffold", ]

## ----force--------------------------------------------------------------------
result <- update_rzig(path, force = TRUE)
result

## ----stale--------------------------------------------------------------------
framework_file <- file.path(path, "src", "rzig", "framework", "rzig.zig")
cat("// local change\n", file = framework_file, append = TRUE)
status <- rzig_status(path)
status[status$step == "Scaffold", ]
result <- update_rzig(path)
result

## ----cleanup, include = FALSE-------------------------------------------------
unlink(path, recursive = TRUE)