/
plotCountsPerBiotype-methods.R
71 lines (57 loc) · 1.59 KB
/
plotCountsPerBiotype-methods.R
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
#' @name plotCountsPerBiotype
#' @author Michael Steinbaugh, Rory Kirchner
#' @inherit AcidPlots::plotCountsPerBiotype
#' @note Updated 2022-03-07.
#'
#' @inheritParams plotCounts
#' @inheritParams AcidRoxygen::params
#' @param ... Additional arguments.
#'
#' @examples
#' data(bcb)
#'
#' ## bcbioRNASeq ====
#' plotCountsPerBiotype(bcb)
NULL
## Updated 2019-09-16.
`plotCountsPerBiotype,bcbioRNASeq` <- # nolint
function(object, normalized, ...) {
do.call(
what = plotCountsPerBiotype,
args = .normalizedPlotArgs(
object = object,
normalized = match.arg(normalized),
...
)
)
}
formals(`plotCountsPerBiotype,bcbioRNASeq`)[["normalized"]] <- # nolint
.normalized
#' @rdname plotCountsPerBiotype
#' @export
setMethod(
f = "plotCountsPerBiotype",
signature = signature(object = "bcbioRNASeq"),
definition = `plotCountsPerBiotype,bcbioRNASeq`
)
## Updated 2019-09-16.
`plotCountsPerBroadClass,bcbioRNASeq` <- # nolint
function(object, normalized, ...) {
do.call(
what = plotCountsPerBroadClass,
args = .normalizedPlotArgs(
object = object,
normalized = match.arg(normalized),
...
)
)
}
formals(`plotCountsPerBroadClass,bcbioRNASeq`) <- # nolint
formals(`plotCountsPerBiotype,bcbioRNASeq`)
#' @rdname plotCountsPerBiotype
#' @export
setMethod(
f = "plotCountsPerBroadClass",
signature = signature(object = "bcbioRNASeq"),
definition = `plotCountsPerBroadClass,bcbioRNASeq`
)