fix: summarizor() don't stop anymore if table only contain discrete…

… columns #588
davidgohel · Nov 15, 2023 · e4a0cb2 · e4a0cb2
1 parent 2227063
commit e4a0cb2
Show file tree

Hide file tree

Showing 3 changed files with 9 additions and 1 deletion.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,7 +1,7 @@
 Package: flextable
 Type: Package
 Title: Functions for Tabular Reporting
-Version: 0.9.4
+Version: 0.9.5.001
 Authors@R: c(
     person("David", "Gohel", role = c("aut", "cre"),
     email = "[email protected]"),

diff --git a/NEWS.md b/NEWS.md
@@ -1,3 +1,9 @@
+# flextable 0.9.5
+
+## Issues
+
+- `summarizor()` don't stop anymore if table only contain discrete columns.
+
 # flextable 0.9.4
 
 ## Issues

diff --git a/R/summarizor.R b/R/summarizor.R
@@ -161,6 +161,8 @@ dataset_describe <- function(dataset) {
       colnames(z) <- c("stat", "cts")
       z$percent <- z$cts / sum(z$cts)
       z$data_type <- "discrete"
+      z$value1 <- rep(NA_real_, nrow(z))
+      z$value2 <- rep(NA_real_, nrow(z))
       z
     } else if (is.numeric(x)) {
       z <- data.frame(