powered by
Trim off plots that are modified by subsequent lines to only show the "final" plot.
trim_intermediate_plots(x)
A modified evaluation object.
An evaluation object produced by evaluate().
evaluate()
ev <- evaluate(c( "plot(1:3)", "text(1, 1, 'x')", "text(1, 1, 'y')" )) # All intermediate plots are captured ev # Only the final plot is shown trim_intermediate_plots(ev)
Run the code above in your browser using DataLab