attachment filename with smtp_send

[luc.v]

When sending email with attachement in R with blastula the filename wont change to the specified attribute. It keeps sending it as "filename"

library(blastula)
library(dplyr)

email <- compose_email(
  body = md(
    c(
      add_image(file = "index.png", width=800)
    )
  )
) %>% add_attachment(
  file = "iris.csv",
  filename = "iris.csv"
)

smtp_send(
  email = email,
  subject = "Test",
  from = "johndoe@gmail.com",
  to = "luc@mvola.mg",
  credentials = creds(
    host = "mycompany.smtp.com",
    port = 25
  )
)