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