inst/marshmallow-along.R

In cynkra/fledge: Smoother Change Tracking and Versioning for R Packages

pkgload::load_all()
# not opening anything ----
rlang::local_options(rlang_interactive = FALSE)

# initial state ----
# Avoid cleanup
project_dir <- tempfile(pattern = "fledge")
dir.create(project_dir)
local_demo_project(project_dir, quiet = TRUE)
# local_demo_project(quiet = TRUE)

term <- rstudioapi::terminalCreate()
rstudioapi::terminalSend(term, paste0("cd ", getwd(), "\n"))

# create remote ----
tempdir_remote <- withr::local_tempdir(pattern = "remote")
create_remote(tempdir_remote)

fs::dir_tree()
desc::desc()
gert::git_remote_list()

# some edits ----
use_r("bla", open = FALSE)
gert::git_add("R/bla.R")
gert::git_commit("* Add cool bla.")
bump_version()
finalize_version(push = TRUE)

# init release ----
withr::local_envvar("FLEDGE_TEST_NOGH" = "no-github-no-mocking-needed-yay")
withr::local_envvar("FLEDGE_DONT_BOTHER_CRAN_THIS_IS_A_TEST" = "yes-a-test")
plan_release("next")
gert::git_branch()
gert::git_branch_list(local = TRUE)
desc::desc_get_version()
gert::git_status()

gert::git_branch_checkout("main")

writeLines('"boo"', "R/bee.R")
gert::git_add("R/bee.R")
gert::git_commit("* Booing bee.")

bump_version()
finalize_version(push = TRUE)

gert::git_branch_checkout("cran-0.0.1")


# prep release ----
writeLines('"bee"', "R/bla.R")
gert::git_add("R/bla.R")
gert::git_commit("Beeing bla.")

# release ----
withr::local_envvar("FLEDGE_DONT_BOTHER_CRAN_THIS_IS_A_TEST" = "yes-a-test")
release()
gert::git_status()
fs::dir_tree()

# post release ----
withr::local_envvar("FLEDGE_TEST_NOGH" = "no-github-no-mocking-needed-yay")
post_release()

# back to fledge directory and project ----
back_to_start()