/
z-deprecated.R
68 lines (62 loc) · 2.04 KB
/
z-deprecated.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
#' Deprecated function(s) of the \pkg{SomaDataIO} package
#'
#' @description
#' These functions have either been
#' `r lifecycle::badge("superseded")` or
#' `r lifecycle::badge("deprecated")`
#' in the current version of \pkg{SomaDataIO} package.
#' They may eventually be completely removed, so
#' please re-code your scripts accordingly based on the
#' suggestions below:
#'
#' \tabular{lcr}{
#' **Function** \tab \tab **Now Use** \cr
#' [getSomamers()] \tab `r lifecycle::badge("superseded")` \tab [getAnalytes()] \cr
#' [getSomamerData()] \tab `r lifecycle::badge("superseded")` \tab [getAnalyteInfo()] \cr
#' }
#'
#' @details
#' Some badges you may see in \pkg{SomaDataIO}:
#'
#' `r lifecycle::badge("superseded")`
#'
#' `r lifecycle::badge("deprecated")`
#'
#' `r lifecycle::badge("soft-deprecated")`
#'
#' `r lifecycle::badge("stable")`
#'
#' @name SomaDataIO-deprecated
#' @aliases getSomamers getSomamerData
#' @importFrom lifecycle deprecate_warn deprecate_stop
NULL
#' @describeIn getAnalyteInfo
#' `r lifecycle::badge("superseded")`. Please now use [getAnalyteInfo()].
#' @export
getFeatureData <- function(adat) {
deprecate_warn("5.1.0", "SomaDataIO::getFeatureData()", "getAnalyteInfo()")
getAnalyteInfo(adat)
}
#' @describeIn getAnalytes
#' `r lifecycle::badge("superseded")`. Please now use [getAnalytes()].
#' @export
getFeatures <- function(x, n = FALSE, rm.controls = FALSE) {
deprecate_warn("5.1.0", "SomaDataIO::getFeatures()", "getAnalytes()")
getAnalytes(x = x, n = n, rm.controls = rm.controls)
}
#' @describeIn pivotExpressionSet
#' `r lifecycle::badge("superseded")`. Please now use [pivotExpressionSet()].
#' @export
meltExpressionSet <- function(eSet) {
deprecate_stop("5.0.0", "SomaDataIO::meltExpressionSet()", "pivotExpressionSet()")
}
#' @noRd
#' @export
getSomamers <- function(x) {
deprecate_stop("5.0.0", "SomaDataIO::getSomamers()", "getAnalytes()")
}
#' @noRd
#' @export
getSomamerData <- function(x) {
deprecate_stop("5.0.0", "SomaDataIO::getSomamerData()", "getAnalyteInfo()")
}