Надеюсь, все хорошо и безопасно: small_smile:
У меня есть 2 документа (do c .Rmd и email.Rmd), где он генерирует автоматическую c почту на мой почтовый ящик. Когда я запускаю do c .Rmd локально, я получаю вывод без каких-либо специальных символов. Но когда я запускаю email.Rmd и генерирую почту, тело письма содержит специальные символы (у нее в этом случае я получаю знак = в конце, и это странно. Не знаю почему? Кто-нибудь может мне здесь помочь?
do c .Rmd
---
output:
html_document: default
pdf_document: default
---
---
title: IRIS
output: html_document
---
```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
library(blastula)
library(dplyr)
library(formattable)
library(RODBC)
```
```{r email_body, echo=FALSE, message=FALSE, warning=FALSE, paged.print=FALSE}
formatted_table <- format_table(x = head(iris))
```
```{r email_body2, echo=FALSE, message=FALSE, warning=FALSE, paged.print=FALSE}
formatted_table
```
email.Rmd
---
title: "Email Report"
output: blastula::blastula_email
---
```{r email_setup, include=FALSE}
library(blastula)
library(mime)
library(magrittr)
knitr::opts_chunk$set(
collapse = TRUE,
comment = "#>"
)
```
```{r email_intro, echo=FALSE}
date_time <- add_readable_time()
email <- render_email('doc.Rmd')
if(Sys.getenv("XXX")=="YYYY") {
email %>%
smtp_send(
from = "XXX.com",
to = c("XXX.com"),
subject = paste0("IRIS",Sys.Date(),":"),
credentials = creds_anonymous(host = "XXX,com",port=YY, use_ssl = FALSE)
)
} else {
email %>%
smtp_send(
from = "XXX.com",
to = c("XXX.com"),
subject = paste0("IRIS",Sys.Date(),":"),
credentials = creds_anonymous(host = "XXX,com",port=YY, use_ssl = FALSE)
)
}
```