add comment

easystats · Jun 23, 2024 · 17f8736 · 17f8736
1 parent 51c8b5f
commit 17f8736
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 0 deletions.
diff --git a/R/data_tabulate.R b/R/data_tabulate.R
@@ -173,6 +173,10 @@ data_tabulate.default <- function(x,
   # frequency table
   if (is.null(weights)) {
     if (remove_na) {
+      # we have a `.default` and a `.data.frame` method for `data_tabulate()`.
+      # since this is the default, `x` can be an object which cannot be used
+      # with `table()`, that's why we add `tryCatch()` here. Below we give an
+      # informative error message for non-supported objects.
       freq_table <- tryCatch(table(x), error = function(e) NULL)
     } else {
       freq_table <- tryCatch(table(addNA(x)), error = function(e) NULL)

diff --git a/R/data_xtabulate.R b/R/data_xtabulate.R
@@ -12,6 +12,10 @@
   }
   # frequency table
   if (is.null(weights)) {
+    # we have a `.default` and a `.data.frame` method for `data_tabulate()`.
+    # since this is the default, `x` can be an object which cannot be used
+    # with `table()`, that's why we add `tryCatch()` here. Below we give an
+    # informative error message for non-supported objects.
     if (remove_na) {
       x_table <- tryCatch(table(x, by), error = function(e) NULL)
     } else {