Fix bug in make_register() #22

NEWS.md

@@ -1,5 +1,9 @@
 # makepipe (development version)
 
+* Fixed a minor bug in `make_register()` (#22). Previously, an error would be thrown
+when using `make_register()` outside of a `makepipe` segment if the user set 
+`quiet=TRUE`. This is no longer the case.
+
 # makepipe 0.0.5
 
 * Fixed minor bug having to do with the propagation of out-of-dateness in

R/make_register.R

@@ -35,15 +35,13 @@
 #'   step_one$result$chk
 #' }
 make_register <- function(value, name, quiet = FALSE) {
-  if (!quiet) {
-    msg <- "`make_register()` called outside of a 'makepipe' pipeline"
-    if (exists("__makepipe_register__", parent.frame())) {
-      register_env <- get("__makepipe_register__", parent.frame())
-      if (!is.environment(register_env)) warning(msg, call. = FALSE)
-    } else {
-      warning(msg, call. = FALSE)
-      return(invisible(value))
-    }
+  msg <- "`make_register()` called outside of a 'makepipe' pipeline"
+  if (exists("__makepipe_register__", parent.frame())) {
+    register_env <- get("__makepipe_register__", parent.frame())
+    if (!is.environment(register_env) & !quiet) warning(msg, call. = FALSE)
+  } else {
+    if (!quiet) warning(msg, call. = FALSE)
+    return(invisible(value))
   }
 
   assign(name, value, register_env)