Hotfix: replace datawizard::data_tabulate() to avoid r-devel NA row name error in report_participants() (#603)

* Initial plan

* Fix CRAN failure: replace datawizard::data_tabulate() with table() to avoid NA row names in r-devel

Agent-Logs-Url: https://github.com/easystats/report/sessions/aadc7586-e780-4972-8f93-af5a77524513

Co-authored-by: rempsyc <13123390+rempsyc@users.noreply.github.com>

* document

---------

Co-authored-by: copilot-swe-agent[bot] <198982749+Copilot@users.noreply.github.com>
Co-authored-by: rempsyc <13123390+rempsyc@users.noreply.github.com>

Author: Copilot

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: report
 Type: Package
 Title: Automated Reporting of Results and Statistical Models
-Version: 0.6.3.1
+Version: 0.6.3.2
 Authors@R:
     c(person(given = "Dominique",
              family = "Makowski",
@@ -91,7 +91,6 @@ VignetteBuilder:
     knitr
 Encoding: UTF-8
 Language: en-US
-RoxygenNote: 7.3.3
 Config/testthat/edition: 3
 Config/Needs/website:
     rstudio/bslib,
@@ -161,3 +160,4 @@ Collate:
     'utils_misspelled_variables.R'
     'zzz.R'
 Roxygen: list(markdown = TRUE)
+Config/roxygen2/version: 8.0.0

NEWS.md

@@ -2,6 +2,8 @@
 
 Bug fixes
 
+* `report_participants()`: fix CRAN failure on r-devel due to `row names contain missing values` error by replacing `datawizard::data_tabulate()` with a direct `table()` call for country and race frequency tables (#593).
+
 * Fix `report()` crash when character vector has only one unique value (#578).
 
 # report 0.6.3

R/report.character.R

@@ -107,7 +107,11 @@ report_parameters.character <- function(
   }
 
   n_entries_actual <- min(n_entries, length(param_text))
-  as.report_parameters(param_text, summary = param_text[1:n_entries_actual], ...)
+  as.report_parameters(
+    param_text,
+    summary = param_text[1:n_entries_actual],
+    ...
+  )
 }
 
 

R/report_participants.R

@@ -560,12 +560,12 @@ report_participants <- function(
   } else {
     data[[country]] <- as.character(data[[country]])
     data[which(data[[country]] %in% c(NA, "NA")), country] <- "missing"
-    frequency_table <- as.data.frame(
-      datawizard::data_tabulate(data[[country]]),
+    freq_tbl <- table(data[[country]])
+    frequency_table <- data.frame(
+      Value = names(freq_tbl),
+      Percent = as.numeric(freq_tbl) / nrow(data) * 100,
       stringsAsFactors = FALSE
-    )[c(2, 4)]
-    names(frequency_table)[2] <- "Percent"
-    frequency_table <- frequency_table[-which(is.na(frequency_table$Value)), ]
+    )
     frequency_table <- frequency_table[order(-frequency_table$Percent), ]
     upper <- frequency_table[which(frequency_table$Percent >= threshold), ]
     lower <- frequency_table[which(frequency_table$Percent < threshold), ]
@@ -594,12 +594,12 @@ report_participants <- function(
   } else {
     data[[race]] <- as.character(data[[race]])
     data[which(data[[race]] %in% c(NA, "NA")), race] <- "missing"
-    frequency_table <- as.data.frame(
-      datawizard::data_tabulate(data[[race]]),
+    freq_tbl <- table(data[[race]])
+    frequency_table <- data.frame(
+      Value = names(freq_tbl),
+      Percent = as.numeric(freq_tbl) / nrow(data) * 100,
       stringsAsFactors = FALSE
-    )[c(2, 4)]
-    names(frequency_table)[2] <- "Percent"
-    frequency_table <- frequency_table[-which(is.na(frequency_table$Value)), ]
+    )
     frequency_table <- frequency_table[order(-frequency_table$Percent), ]
     upper <- frequency_table[which(frequency_table$Percent >= threshold), ]
     lower <- frequency_table[which(frequency_table$Percent < threshold), ]