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