fix Excel attachments (#314) (#316)

DESCRIPTION

@@ -47,7 +47,9 @@ Suggests:
     keyring,
     knitr,
     spelling,
-    xml2
+    xml2,
+    openxlsx,
+    withr
 SystemRequirements: pandoc (>= 1.12.3) - http://pandoc.org
 Encoding: UTF-8
 RoxygenNote: 7.2.3

NEWS.md

@@ -1,5 +1,7 @@
 # blastula (development version)
 
+* Fixed Excel attachments which were broken due to wrong conversion into RFC2822. (#314)
+
 # blastula 0.3.4
 
 * Modified tests to remove specific cases that no longer work in newer versions of R. (#310)

R/mime.R

@@ -100,8 +100,8 @@ generate_rfc2822 <- function(
 
         quoted_filename <-
           header_quoted(
-            attachment$filename,
-            str = "Filename",
+            str = attachment$filename,
+            fieldname = "Filename",
             encode_unicode = TRUE
           )
 

tests/testthat/test-mime.R

@@ -144,3 +144,27 @@ test_that("varying formats for recipient lists work as expected", {
     grepl("(?<!\\r)\n", ., perl = TRUE) %>%
     expect_false()
 })
+
+test_that("excel attachment", {
+  email <- compose_email()
+
+  withr::with_tempfile(
+    fileext = ".xlsx",
+    new = "out_file",
+    code = {
+      openxlsx::write.xlsx(x = mtcars, file = out_file)
+
+      email <- email %>%
+        add_attachment(out_file)
+
+      generate_rfc2822(
+        eml = email,
+        date = Sys.Date(),
+        subject = NULL,
+        from = NULL,
+        to = NULL
+      ) %>%
+        expect_match(paste0('filename=\"', basename(out_file)))
+    }
+  )
+})