fix issue with NA in freq_table

randrescastaneda · Jun 11, 2024 · 02cc0b7 · 02cc0b7
1 parent 5446ae9
commit 02cc0b7
Show file tree

Hide file tree

Showing 3 changed files with 7 additions and 4 deletions.
diff --git a/.gitignore b/.gitignore
@@ -8,3 +8,5 @@ doc
 Meta
 
 docs
+/doc/
+/Meta/
diff --git a/R/freq_table.R b/R/freq_table.R
@@ -24,14 +24,15 @@ if (getRversion() >= '2.15.1')
 #' freq_table(x4, "id1")
 freq_table <- function(x,
                        byvar,
-                       digits = 1) {
+                       digits = 1,
+                       na.rm  = FALSE) {
 
   x_name <- as.character(substitute(x))
   if (!is.data.frame(x)) {
     cli::cli_abort("Argument {.arg x} ({.field {x_name}}) must be a data frame")
   }
 
-  fq <- qtab(x[[byvar]])
+  fq <- qtab(x[[byvar]], na.exclude = na.rm)
   ft <- data.frame(joyn = names(fq),
                    n = as.numeric(fq))
 

diff --git a/vignettes/aux-functions.Rmd b/vignettes/aux-functions.Rmd
@@ -103,13 +103,13 @@ Furthermore, `joyn` provides a function that generates simple frequency tables,
 # Tabulating frequencies of var `id`
 
 freq_table(x     = x1, 
-           byvar = "id")
+           byvar = "id")[]
 
 # Removing NAs from the calculation
 
 freq_table(x     = x1, 
            byvar = "id", 
-           na.rm = TRUE)
+           na.rm = TRUE)[]
 
 
 ```