(v0.9.0.9029) add uti to as.rsi()

R/disk.R

@@ -85,6 +85,11 @@ as.disk <- function(x, na.rm = FALSE) {
   }
 }
 
+all_valid_disks <- function(x) {
+  x_disk <- suppressWarnings(as.disk(x[!is.na(x)]))
+  !any(is.na(x_disk)) & !all(is.na(x))
+}
+
 #' @rdname as.disk
 #' @export
 #' @importFrom dplyr %>%