Calling sequential() is an error, unless 'fiery' is loaded - minimal, temporary workaround until 'fiery' is updated

Author: HenrikBengtsson

R/backend_api-SequentialFutureBackend-class.R

@@ -27,7 +27,9 @@
 #' @aliases uniprocess
 #' @export
 sequential <- function(..., envir = parent.frame()) {
-#  stop("The future::sequential() function implements the FutureBackend and should never be called directly. This will soon become defunct")
+  if (! "fiery" %in% loadedNamespaces()) {
+    stop("The future::sequential() function implements the FutureBackend and should never be called directly. This will soon become defunct")
+  }
   f <- Future(..., envir = envir)
   class(f) <- c("SequentialFuture", "UniprocessFuture", "Future")
   f