Create report_percent_missing.R

anthonyokc · Oct 4, 2023 · d45513e · d45513e
1 parent 0e84427
commit d45513e
Showing 1 changed file with 17 additions and 0 deletions.
diff --git a/R/report_percent_missing.R b/R/report_percent_missing.R
@@ -0,0 +1,17 @@
+report_percent_missing <- function(data, column) {
+  na_data <- data |>
+    tably({{column}}) |>
+    dplyr::filter(is.na({{column}}))
+
+  print(na_data)
+
+  na_column_name <- na_data |>
+    names() |>
+    dplyr::nth(1)
+
+  na_data |>
+    dplyr::pull(percent) |>
+    percent(multiply_by_100 = FALSE, 2) |>
+    sprintf(fmt = "\n%s of '%s' are missing.", na_column_name) |>
+    cat()
+}