Nothing
#' An S7 generic
#'
#' @param x,y A parameter
#' @export
uni <- S7::new_generic("uni", "x")
#' @rdname uni
S7::method(uni, S7::class_integer) <- function(x, ...) x
#' S7 character method
S7::method(uni, S7::class_character) <- function(x, ...) 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.