Nothing
#' @importFrom utils capture.output
#' @method print ref
#' @export
print.ref <- function(x, ...){
tryCatch(cat(paste0(capture.output(print(getEnv(x))), " => ", getSym(x))), error=function(e) cat("<NULL>"))
}
#' @importFrom utils capture.output
#' @method print slice
#' @export
print.slice <- function(x, ...){
tryCatch(cat(paste0(capture.output(print(getEnv(x))), " => ", getSym(x), "[]")), error=function(e) cat("<NULL>"))
}
#' @importFrom utils capture.output
#' @method print ref
#' @export
print.sref <- function(x, ...){
tryCatch(cat(paste0(capture.output(print(getEnv(x))), " => ", getSym(x))), error=function(e) cat("<NULL>"))
}
#' @importFrom utils capture.output
#' @method print rfexpr
#' @export
print.rfexpr <- function(x, ...){
class(x) <- NULL
cat(paste0("<", capture.output(print(dederef_exp_(x))), ">"))
}
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.