Nothing
#' Generic test for multiple methods
#'
#'
#' @param x,y A parameter
#'
#' @rdname multi-method
#'
#' @export
multi_method <- function(x, y) {
UseMethod("multi_method")
}
#' Test default
#'
#' @param x,y A parameter
#'
#' @rdname multi-method-2
#'
#' @export
multi_method.default <- function(x, y) {
x
}
#' Test data frame
#'
#' @param x,y A parameter
#'
#' @rdname multi-method-3
#'
#' @export
multi_method.data.frame <- function(x, y) {
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.