is.disk.matrix now returns single logical

sritchie73 · sritchie73 · commit df1db123b260 · 2020-10-06T21:21:13.000+01:00
diff --git a/R/disk-matrix-class.R b/R/disk-matrix-class.R
@@ -124,7 +124,7 @@ serialize.table <- function(file, ...) {
 #' @rdname disk.matrix
 #' @export
 is.disk.matrix <- function(x) {
-  class(x) == "disk.matrix"
+  "disk.matrix" %in% class(x)
 }
 
 #' @rdname disk.matrix

Original file line number	Diff line number	Diff line change
`@@ -124,7 +124,7 @@ serialize.table <- function(file, ...) {`
`124`	`124`	`#' @rdname disk.matrix`
`125`	`125`	`#' @export`
`126`	`126`	`is.disk.matrix <- function(x) {`
`127`		`- class(x) == "disk.matrix"`
	`127`	`+ "disk.matrix" %in% class(x)`
`128`	`128`	`}`
`129`	`129`
`130`	`130`	`#' @rdname disk.matrix`