diff --git a/.gitignore b/.gitignore
index 3ef59ac1..061b0855 100644
--- 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
index 40dcadc2..2f03d7d4 100644
--- 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
index dcf425d1..2eab35de 100644
--- 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)[]
 
 
 ```