P281424/AMR
1
0
Fork 0
mirror of https://github.com/msberends/AMR.git synced 2025-07-08 07:51:57 +02:00
Code Releases Activity

(v0.9.0.9021) inheritance fix

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends
2020-02-10 12:25:02 +01:00
parent c7a76ba713
commit b4356a299c
19 changed files with 73 additions and 89 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
R/disk.R
View File

@ -81,7 +81,7 @@ as.disk <- function(x, na.rm = FALSE) {
#' @export
#' @importFrom dplyr %>%
is.disk <- function(x) {
class(x) %>% identical(c("disk", "integer"))
inherits(x, c("disk", "integer"))
}
#' @exportMethod print.disk

2
R/mic.R
View File

@ -130,7 +130,7 @@ as.mic <- function(x, na.rm = FALSE) {
#' @export
#' @importFrom dplyr %>%
is.mic <- function(x) {
class(x) %>% identical(c("mic", "ordered", "factor"))
inherits(x, c("mic", "factor"))
}
#' @exportMethod as.double.mic

3
R/rsi.R
View File

@ -346,8 +346,7 @@ as.rsi.data.frame <- function(x, col_mo = NULL, guideline = "EUCAST", ...) {
#' @rdname as.rsi
#' @export
is.rsi <- function(x) {
identical(class(x),
c("rsi", "ordered", "factor"))
inherits(x, c("rsi", "factor"))
}
#' @rdname as.rsi