P281424/AMR
1
0
Fork 0
mirror of https://github.com/msberends/AMR.git synced 2025-09-02 14:24:10 +02:00
Code Releases Activity

documentation, unit tests

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends
2023-01-24 10:20:27 +01:00
parent eef00069fd
commit 830c67f1bf
60 changed files with 45 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
R/zz_deprecated.R
View File

@@ -150,7 +150,7 @@ theme_rsi <- function(...) {
# will be exported using s3_register() in R/zzz.R
pillar_shaft.rsi <- pillar_shaft.sir
type_sum.rsi <- function(x, ...) {
deprecation_warning(extra_msg = "* Transform your old 'rsi' class to the new 'sir' class with `as.sir()` using e.g.:\n your_data %>% mutate_if(is.rsi, as.sir)")
deprecation_warning(extra_msg = "* The 'rsi' class has been replaced with 'sir'. Transform your 'rsi' columns to 'sir' with `as.sir()`, e.g.:\n your_data %>% mutate_if(is.rsi, as.sir)")
paste0("rsi", font_bold(font_red("[!]")))
}
@@ -158,7 +158,7 @@ type_sum.rsi <- function(x, ...) {
#' @export
#' @noRd
print.rsi <- function(x, ...) {
deprecation_warning(extra_msg = "Transform your old 'rsi' class to the new 'sir' class with `as.sir()`")
deprecation_warning(extra_msg = "The 'rsi' class has been replaced with 'sir' - transform your 'rsi' data with `as.sir()`")
cat("Class 'rsi'", font_bold(font_red("[!]\n")))
print(as.character(x), quote = FALSE)
}
@@ -191,6 +191,8 @@ summary.rsi <- summary.sir
#' @export
unique.rsi <- unique.sir
# WHEN REMOVING RSI, DON'T FORGET TO REMOVE THE "rsi_df" CLASS FROM R/sir_calc.R
deprecation_warning <- function(old = NULL, new = NULL, extra_msg = NULL) {
if (is.null(old)) {
warning_(extra_msg)