feat: Add options to use openxlsx2 to write_sharepoint

elipousson · Nov 8, 2023 · c4df2d0 · c4df2d0
1 parent 268ccd5
commit c4df2d0
Show file tree

Hide file tree

Showing 3 changed files with 9 additions and 3 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -25,6 +25,7 @@ Suggests:
     fs,
     knitr,
     officer,
+    openxlsx2,
     rappdirs,
     readr,
     readxl,

diff --git a/R/write_sharepoint.R b/R/write_sharepoint.R
@@ -5,7 +5,8 @@
 #' using:
 #'
 #' - [sf::write_sf()] if x is an `sf` object
-#' - [readr::write_csv()] if x is a `data.frame`
+#' - [readr::write_csv()] if x is a `data.frame` and file does not include a xlsx extension
+#' - [openxlsx2::write_xlsx()] if x is a `data.frame` file does include a xlsx extension
 #' - The [print()] method from `{officer}` if x is a `rdocx`, `rpptx`, or `rxlsx` object
 #' - [readr::write_rds()] if x is any other class
 #'
@@ -46,9 +47,12 @@ write_sharepoint <- function(x,
   if (inherits(x, "sf")) {
     check_installed("sf", call = call)
     sf::write_sf(x, dsn = file, ...)
-  } else if (inherits(x, "data.frame")) {
+  } else if (inherits(x, "data.frame") && !stringr::str_detect(file, ".xlsx$")) {
     check_installed("readr", call = call)
     readr::write_csv(x, file = file, ...)
+  } else if (inherits(x, "data.frame") && stringr::str_detect(file, ".xlsx$")) {
+    check_installed("openxlsx2", call = call)
+    openxlsx2::write_xlsx(x, file = file, ...)
   } else if (inherits(x, c("rdocx", "rpptx", "rxslx"))) {
     check_installed("officer", call = call)
     print(x, target = file, ...)

diff --git a/man/write_sharepoint.Rd b/man/write_sharepoint.Rd
-Original file line number
+Diff line change
@@ Expand Up / @@ -25,6 +25,7 @@ Suggests: @@
         fs,
         knitr,
         officer,
+        openxlsx2,
         rappdirs,
         readr,
         readxl,
@@ Expand Down @@