Minimise further

R/profvis.R

@@ -172,7 +172,7 @@ profvis <- function(expr = NULL,
       on.exit(unlink(prof_output), add = TRUE)
     }
 
-    # Use unique name so we can easily find in trim_suffix()
+    # Use unique name so we can easily trim below
     `__profvis_execute__` <- new_function(list(), expr_q, env)
 
     repeat {
@@ -189,7 +189,7 @@ profvis <- function(expr = NULL,
       }
     }
 
-    lines <- trim_suffix(lines)
+    lines <- gsub('"__profvis_execute__".*$', "", lines)
   } else {
     # If we got here, we were provided a prof_input file instead of expr
     expr_source <- NULL
@@ -248,10 +248,6 @@ with_profvis_handlers <- function(expr) {
   })
 }
 
-trim_suffix <- function(lines) {
-  gsub('"__profvis_execute__".*$', "", lines)
-}
-
 #' Print a profvis object
 #'
 #' @inheritParams profvis