mirror of
https://github.com/msberends/AMR.git
synced 2025-07-09 02:03:04 +02:00
re-add atc_ddd and atc_groups
This commit is contained in:
5
R/atc.R
5
R/atc.R
@ -146,17 +146,12 @@ as.atc <- function(x) {
|
||||
x.new
|
||||
}
|
||||
|
||||
#' @rdname AMR-deprecated
|
||||
#' @export
|
||||
guess_atc <- as.atc
|
||||
|
||||
#' @rdname as.atc
|
||||
#' @export
|
||||
is.atc <- function(x) {
|
||||
identical(class(x), "atc")
|
||||
}
|
||||
|
||||
|
||||
#' @exportMethod print.atc
|
||||
#' @export
|
||||
#' @noRd
|
||||
|
@ -54,6 +54,13 @@ guess_mo <- function(...) {
|
||||
as.mo(...)
|
||||
}
|
||||
|
||||
#' @rdname AMR-deprecated
|
||||
#' @export
|
||||
guess_atc <- function(...) {
|
||||
.Deprecated(new = "as.atc", package = "AMR")
|
||||
as.atc(...)
|
||||
}
|
||||
|
||||
#' @rdname AMR-deprecated
|
||||
#' @export
|
||||
ab_property <- function(...) {
|
||||
@ -109,3 +116,18 @@ ab_tradenames <- function(...) {
|
||||
.Deprecated(new = "atc_tradenames", package = "AMR")
|
||||
atc_tradenames(...)
|
||||
}
|
||||
|
||||
#' @rdname AMR-deprecated
|
||||
#' @export
|
||||
atc_ddd <- function(...) {
|
||||
.Deprecated(new = "atc_online_ddd", package = "AMR")
|
||||
atc_online_ddd(...)
|
||||
}
|
||||
|
||||
#' @rdname AMR-deprecated
|
||||
#' @export
|
||||
atc_groups <- function(...) {
|
||||
.Deprecated(new = "atc_online_groups", package = "AMR")
|
||||
atc_online_groups(...)
|
||||
}
|
||||
|
||||
|
Reference in New Issue
Block a user