(v1.2.0.9011) mo_domain(), improved error handling

2025-10-19 15:46:20 +02:00 · 2020-06-22 11:18:40 +02:00
parent e88d7853f5
commit 93a158aebd
49 changed files with 523 additions and 590 deletions
--- a/R/availability.R
+++ b/R/availability.R
@@ -46,6 +46,7 @@
 #'   availability()
 #' }
 availability <- function(tbl, width = NULL) {
+  stop_ifnot(is.data.frame(tbl), "`tbl` must be a data.frame")
  x <- base::sapply(tbl, function(x) {
    1 - base::sum(base::is.na(x)) / base::length(x) 
  })