1#' Retrieve the value from an object 2#' @export 3#' @param x object from which to retrieve the value 4#' @param ... additional arguments passed to methods 5value <- function(x, ...) UseMethod("value") 6 7#' @export 8value.coverage <- function(x, ...) { 9 vdapply(x, value, ...) 10} 11 12#' @export 13value.expression_coverage <- function(x, ...) { 14 x$value 15} 16 17#' @export 18value.expression_coverages <- value.coverage 19 20#' @export 21value.line_coverage <- value.expression_coverage 22 23#' @export 24value.line_coverages <- value.expression_coverages 25