ev <- evaluate::evaluate(function() {
     hist(cars$speed)
     hist(cars$speed, breaks = "Scott")
 })
 lapply(ev, class)
#> [[1]]
#> [1] "source"
#> 
#> [[2]]
#> [1] "recordedplot"
#> 
#> [[3]]
#> [1] "source"
#> 
#> [[4]]
#> [1] "recordedplot"
 packageVersion("evaluate")
#> [1] '0.24.0'

> md <- glue::glue("
```{r}
hist(cars$speed)
hist(cars$speed, breaks = 'Scott')
```
", .open = "{{", .close = "}}")
> knitr::knit(text = md) |> cat()
1/1 [unnamed-chunk-1]

``` r
hist(cars$speed)
hist(cars$speed, breaks = 'Scott')
```

![plot of chunk unnamed-chunk-1](figure/unnamed-chunk-1-1.png)

> knitr::opts_chunk$set(fig.keep="all")
> knitr::knit(text = md) |> cat()
1/1 [unnamed-chunk-1]

``` r
hist(cars$speed)
```

![plot of chunk unnamed-chunk-1](figure/unnamed-chunk-1-1.png)

``` r
hist(cars$speed, breaks = 'Scott')
```

![plot of chunk unnamed-chunk-1](figure/unnamed-chunk-1-2.png)

evaluate::evaluate(function() {
     hist(cars$speed)
     hist(cars$speed, breaks = "Scott")
 })
#> <evaluation>
#> Source code: 
#>   hist(cars$speed)
#> Plot [7]:
#>   <base> C_plot_new()
#>   <base> palette2()
#>   <base> C_plot_window()
#>   <base> C_title()
#>   <base> C_axis()
#>   <base> C_axis()
#>   <base> C_rect()
#> Source code: 
#>   hist(cars$speed, breaks = "Scott")