Simplify code thus revealed

r-lib · Jun 19, 2024 · 294f463 · 294f463
1 parent d571425
commit 294f463
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/R/eval.R b/R/eval.R
@@ -238,10 +238,10 @@ evaluate_top_level_expression <- function(exprs,
       attr(output[[srcindex]]$src, 'timing') <- time
 
     if (show_value(output_handler, ev$visible)) {
-      pv <- list(value = NULL, visible = FALSE)
-      handle(pv <- withCallingHandlers(withVisible(
-        handle_value(output_handler, ev$value, ev$visible)
-      ), warning = wHandler, error = eHandler, message = mHandler))
+      handle(withCallingHandlers(
+        handle_value(output_handler, ev$value, ev$visible), 
+        warning = wHandler, error = eHandler, message = mHandler)
+      )
       handle_output(TRUE)
     }
   }