[write_xlsx] supply sheetName for single argument. closes #711 (#712)

JanMarvin · Aug 1, 2023 · 4f15d2f · 4f15d2f
1 parent a0f62ef
commit 4f15d2f
Show file tree

Hide file tree

Showing 2 changed files with 13 additions and 1 deletion.
diff --git a/R/write_xlsx.R b/R/write_xlsx.R
@@ -303,8 +303,10 @@ write_xlsx <- function(x, file, as_table = FALSE, ...) {
 
 
   ## If a list is supplied write to individual worksheets using names if available
-  if (!inherits(x, "list"))
+  if (!inherits(x, "list")) {
     x <- list(x)
+    names(x) <- sheetName
+  }
 
   nms <- names(x)
   nSheets <- length(x)

diff --git a/tests/testthat/test-save.R b/tests/testthat/test-save.R
@@ -348,3 +348,13 @@ test_that("escaping of inlinestrings works", {
   expect_equal(exp, got)
 
 })
+
+test_that("write_xlsx() works", {
+
+  tmp <- temp_xlsx()
+  write_xlsx(mtcars, tmp, sheet_name = "test")
+  exp <- c(test = "test")
+  got <- wb_load(tmp)$get_sheet_names()
+  expect_equal(exp, got)
+
+})