Refactor: simplify .execute in ProgressTrackingContext

mihaiconstantin · Apr 30, 2023 · 3183e83 · 3183e83
1 parent ce9b15a
commit 3183e83
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/R/ProgressTrackingContext.R b/R/ProgressTrackingContext.R
@@ -225,11 +225,11 @@ ProgressTrackingContext <- R6::R6Class("ProgressTrackingContext",
                 unlink(log)
             })
 
-            # Decorate task function and save it as `task` (i.e., for readability).
-            task <- private$.decorate(task = fun, log = log)
+            # Decorate the task function.
+            fun <- private$.decorate(task = fun, log = log)
 
-            # Substitute `fun` with `task` (i.e., for readability) and evaluate.
-            eval(substituteDirect(operation, list(fun = task)))
+            # Evaluate the operation now referencing the decorated task.
+            eval(operation)
 
             # Show the progress bar and block the main process.
             private$.show_progress(total = length(x), log = log)