使用Autoprint在内部保留评论

Question

使用withAutoprint仍然可以打印条件代码（如R包示例中所示）。但是，这样做会忽略注释。

withAutoprint({
  x <- 1:5

  # This is how we find the average
  mean(x)
})
#> > x <- 1:5
#> > mean(x)
#> [1] 3

^{由reprex package（v0.2.1）于2018-11-22创建}

有没有办法在打印输出中保留评论？