add unleash.R

cynkra · Aug 24, 2020 · 5662a5b · 5662a5b
1 parent 4d91e6e
commit 5662a5b
Showing 1 changed file with 16 additions and 0 deletions.
diff --git a/R/unleash.R b/R/unleash.R
@@ -0,0 +1,16 @@
+# Feature: allow to specify a numeric version in `which`
+unleash <- function(which, force = FALSE) {
+
+  state <- check_release_state()
+
+  switch(state,
+    "pre-release" = pre_release(which, force),
+    "ready-to-release" = release(),
+    "accepted" = post_release(),
+    "submitted" = TRUE,
+    "running-release-checks" = TRUE,
+
+    # FIXME: Improve error handling/messages
+    FALSE = stop("No valid state detected.")
+  )
+}