Nothing
# Number of lines
# which depends on the type of plot
#' @title Get number of lines
#' @name num_lines
#' @param dat Data
#' @keywords internal
#'
num_lines <- function(dat) {
UseMethod('num_lines', dat)
}
#' @rdname num_lines
#'
num_lines.pairwise <- function(dat) {
dat$n_comparators
}
#' @rdname num_lines
#'
num_lines.bcea <- function(dat) {
dat$n_comparisons
}
#' @rdname num_lines
#'
num_lines.evppi <- function(dat) {
2
}
#' @rdname num_lines
#'
num_lines.default <- function(dat) {
dat$n_comparisons
}
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.