Nothing
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))
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.