Nothing
#' @rdname rxEvid
#' @export
format.rxEvid <- function(x, ...) {
.x <- unclass(x)
format(as.character.rxEvid(.x), align = "left", width = 12)
}
#' @rdname rxEvid
#' @export
format.rxRateDur <- function(x, ...) {
.x <- unclass(x)
format(as.character.rxRateDur(.x), align = "left")
}
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.