From cb2ab3908e6da6d38654ec0a5e1800aef18dc1df Mon Sep 17 00:00:00 2001
From: Hadley Wickham <h.wickham@gmail.com>
Date: Tue, 2 Jul 2024 07:50:38 -0500
Subject: [PATCH] Move towards r-lib release process

---
 R/utils.R                |  9 ---------
 scripts/release_checks.R | 32 --------------------------------
 2 files changed, 41 deletions(-)
 delete mode 100644 scripts/release_checks.R

diff --git a/R/utils.R b/R/utils.R
index d175dc80..95a0b84f 100644
--- a/R/utils.R
+++ b/R/utils.R
@@ -3,19 +3,10 @@ drop_nulls <- function(x) {
   x[!vapply(x, is.null, logical(1))]
 }
 
-
 # Everything above this function in the stack will be hidden by default in the
 # flamegraph.
 ..stacktraceoff.. <- function(x) x
 
-is_installed <- function(pkg) {
-  found <- TRUE
-  tryCatch(utils::packageVersion(pkg),
-    error = function(e) found <<- FALSE
-  )
-  found
-}
-
 modal_value0 <- function(x) {
   if (!length(x)) {
     return(NULL)
diff --git a/scripts/release_checks.R b/scripts/release_checks.R
deleted file mode 100644
index 8aa92ef1..00000000
--- a/scripts/release_checks.R
+++ /dev/null
@@ -1,32 +0,0 @@
-
-
-if (!profvis::is_installed("devtools")) {
-  remotes::install_cran("devtools")
-}
-devtools::spell_check()
-devtools::check()
-devtools::check_win_oldrelease()
-devtools::check_win_release()
-devtools::check_win_devel()
-
-
-if (!profvis::is_installed("rhub")) {
-  remotes::install_cran("rhub")
-}
-rc <- rhub::check_for_cran(show_status = FALSE)
-for (i in seq_len(nrow(rc$urls()))) {
-  rc$livelog(i)
-}
-cat("\n\n\n")
-rc$cran_summary()
-
-
-if (!profvis::is_installed("revdepcheck")) {
-  remotes::install_github("r-lib/revdepcheck")
-}
-revdepcheck::revdep_check(num_workers = 4)
-
-
-
-
-devtools::release()