P281424/AMR
1
0
Fork 0
mirror of https://github.com/msberends/AMR.git synced 2025-07-09 01:22:25 +02:00
Code Releases Activity

(v1.4.0.9021) more robust class setting

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends
2020-11-16 16:57:55 +01:00
parent 05fb213a7c
commit deefce9520
29 changed files with 98 additions and 85 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
R/bug_drug_combinations.R
View File

@ -106,7 +106,8 @@ bug_drug_combinations <- function(x,
out <- rbind(out, out_group, stringsAsFactors = FALSE)
}
structure(.Data = out, class = c("bug_drug_combinations", x_class))
set_clean_class(out,
new_class = c("bug_drug_combinations", x_class))
}
#' @method format bug_drug_combinations
@ -245,7 +246,8 @@ format.bug_drug_combinations <- function(x,
#' @export
print.bug_drug_combinations <- function(x, ...) {
x_class <- class(x)
print(structure(x, class = x_class[x_class != "bug_drug_combinations"]),
print(set_clean_class(x,
new_class = x_class[x_class != "bug_drug_combinations"]),
...)
message_("Use 'format()' on this result to get a publishable/printable format.", as_note = FALSE)
}