diff --git a/DESCRIPTION b/DESCRIPTION index 820af03e..e54e9c10 100644 --- 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 = "david.gohel@ardata.fr"), diff --git a/NEWS.md b/NEWS.md index 9fece8f1..3052a78a 100644 --- 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 index 9069a55a..de19c99b 100644 --- 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(