tests/testthat/clipr-source/R/clipr_addin.R

In hughjonesd/pastapi: Explore the Historical API of R Packages

clipr_result <- function() {
  context <- rstudioapi::getActiveDocumentContext()
  expr_object <- eval(parse(text = context$selection[[1]]$text))
  write_clip(expr_object)
}

clipr_output <- function() {
  context <- rstudioapi::getActiveDocumentContext()
  expr_object <- eval(parse(text = context$selection[[1]]$text))
  write_clip(utils::capture.output(expr_object))
}