export xl: setnames skip absent

dreamRs · Oct 13, 2020 · 7f36103 · 7f36103
1 parent a03b378
commit 7f36103
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: flexpivot
 Title: Easy Pivot Table
-Version: 0.0.1
+Version: 0.1.0
 Authors@R: 
     c(person(given = "Victor",
              family = "Perrier",

diff --git a/R/export.R b/R/export.R
@@ -85,7 +85,7 @@ export_xlsx <- function(x, output, label_value = "value", ...) {
     stop("export_xlsx works only with pivot_table or pivot_format objects", call. = FALSE)
   }
   x <- unpivot(x)
-  setnames(x, "value", label_value)
+  setnames(x, "value", label_value, skip_absent = TRUE)
   write_xlsx(x = x, path = output)
 }