Split out post-cran-release

.Rbuildignore

@@ -16,6 +16,7 @@ logo\.xcf
 ^build-cran.R$
 ^_pkgdown.yml$
 ^build-website.R$
+^post-cran-release.R$
 ^check-reverse-dependencies.R$
 ^man-roxygen$
 ^TODO\.md$

build-cran.R

@@ -93,47 +93,7 @@ tag(repository('.'), newtag, message = paste('CRAN release candidate for', v))
 system2('git', c('push', '--tags'))
 
 
-
 # now release!
 
 devtools::release()
 
-
-
-
-# Alternatively:
-# Uncomment !CRAN lines in huxtable vignette and save
-system("mkdir -p inst/doc")
-devtools::build_vignettes()
-# Copy built vignettes from doc/ to inst/doc:
-system("cp doc/* inst/doc")
-# Comment out !CRAN lines in huxtable vignette and save
-# copy to inst/doc:
-system("cp vignettes/huxtable.Rmd inst/doc")
-# Do this to avoid R CMD check spotting newer files in vignettes than inst/doc:
-system("touch inst/doc/*")
-# Ensure there's a vignette index in build/vignettes.rds
-# NB NOT Meta/vignettes.rds! devtools::build_vignettes() will put it there,
-# you can move it
-system("mv Meta/vignette.rds build")
-system("rmdir Meta")
-# Build a version for CRAN:
-pkgbuild::build(clean_doc = FALSE, manual = TRUE, vignettes = FALSE)
-# Check you have build/vignettes.rds in the tarfile
-system("tar -ztvf ../huxtable_x.y.z.tar.gz | grep build")
-# Submit via web form. (You could also run through the devtools::release()
-# questions just to be safe!)
-
-# after release:
-revdepcheck::revdep_reset()
-v <- devtools::as.package('.')$version
-newtag <- paste0('v', v, '-rc')
-tags <- git2r::tags()
-tags <- grep(newtag, names(tags), fixed = TRUE, value = TRUE)
-tags <- sort(tags)
-stopifnot(length(tags) > 0)
-tag <- tags[length(tags)]
-gh::gh("POST /repos/hughjonesd/huxtable/releases",
-       name = v,
-       tag_name = tag,
-       body = sprintf("Version %s on CRAN", v))

post-cran-release.R

@@ -0,0 +1,14 @@
+
+
+revdepcheck::revdep_reset()
+v <- devtools::as.package('.')$version
+newtag <- paste0('v', v, '-rc')
+tags <- git2r::tags()
+tags <- grep(newtag, names(tags), fixed = TRUE, value = TRUE)
+tags <- sort(tags)
+stopifnot(length(tags) > 0)
+tag <- tags[length(tags)]
+gh::gh("POST /repos/hughjonesd/huxtable/releases",
+       name = v,
+       tag_name = tag,
+       body = sprintf("Version %s on CRAN", v))