mostly inactive
## R. Capture console output to create blockquote code chunk for SO.
SOquote = \(X, chunk=TRUE, verbose=TRUE) {
X = c(paste(' >', deparse(substitute(X))), capture.output(X))
if (chunk) X = c('```none', X, '```')
if (verbose) message('Output has been passed to clipboard.')
paste0('>', X) |> writeLines(pipe('pbcopy')) # adapt if not on macOS
}
## Example
SOquote(str(cars))
> str(cars)
'data.frame': 50 obs. of 2 variables:
$ speed: num 4 4 7 7 8 9 10 10 10 11 ...
$ dist : num 2 10 4 22 16 10 18 26 34 17 ...
subject: bleeding heart
