(v0.9.0.9021) inheritance fix

R/disk.R

@@ -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

R/mic.R

@@ -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

R/rsi.R

@@ -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