sendmail(from = email_from,
     to = email_to,
     subject = email_subject,
     msg=c(plt,
           email_body_text, "n", "n",
           mime_part(results, "query results", sep = ",", row.names = FALSE), "n",
           "n", "SQL query that generated this result:", "n", "n",
           query
     )
   )