Блог

Доброе утро, я использую R для отправки массовых электронных писем со следующим кодом:

 setwd("C:/Users/oscariro/Documents/R/Devoluciones") tempreport lt;- file.path(getwd(),"Reenvio.rmd") #file.copy("STC.Rmd",tempreport,overwrite = TRUE) a=1 # Loop para enviar correo por  for(i in 1:nrow(Reenvia %gt;% select(cta_usuario) %gt;% distinct())){    print(i)  Asesor_lt;- Reenvia %gt;% select(cta_usuario) %gt;% distinct() %gt;% slice(i) %gt;% as.character()    Nivelcc=Planta %gt;% filter(`FUERZA COMERCIAL`=="DIRECTOR") %gt;% filter(SBAN==Planta %gt;% filter(UsuarioCobis==Asesor_) %gt;%  select(SBAN) %gt;% distinct() %gt;% as.character() ) %gt;%  select(Correo) %gt;% distinct() %gt;% as.character()  print("2a7")    #nbcc="xxxxxxxxxxx@xxxxxx.xxxx.xx"      parametros lt;- list(Comercial=Reenvia %gt;% filter(cta_usuario==Asesor_) %gt;% select(nombre_usuario) %gt;% distinct() %gt;% as.character(),  Asesor_=Asesor_)      emaillt;-blastula::render_email(input = tempreport,render_options = list(params=parametros))  print(parametros$Comercial)  # En caso de no poder enviar imprimir mensaje que no se pudo enviar correo  tryCatch(  email %gt;% smtp_send(  from="xxxxxxxxxxx@xxxxxx.xxxx.xx",  to=Planta %gt;% filter(UsuarioCobis==Asesor_) %gt;% select(Correo) %gt;% distinct() %gt;% as.character(),  #to="xxxxxxxxxxx@xxxxxx.xxxx.xx",  cc=Nivelcc,#bcc = nbcc,  #cc="xxxxxxxxxxx@xxxxxx.xxxx.xx",  #cc= c("xxxxxxxxxxx@xxxxxx.xxxx.xx","xxxxxxxxxxx@xxxxxx.xxxx.xx"),  subject = glue("El motor de alertamientos te informa"),  credentials=creds_key("outlook")  ),error=function(e) {print(glue("No se le pudo enviar correo a {Asesor_}"))  #a=rbind(a,Asesor_)  #if(i==nrow(Alertas %gt;% select(Asesor) %gt;% distinct())){  #openxlsx::write.xlsx(a,glue("{nrow(a)}_Usuarios que recibieron correo-{today()}"))  #}  }  ) }  

Однако, когда приходит отгрузка под номером 494, отгрузка останавливается и появляется следующая ошибка:

 Error in file(file, ifelse(append, "a", "w")) :   cannot open the connection In addition: Warning message: In file(file, ifelse(append, "a", "w")) :  cannot open file 'alerta.knit.md': Too many open files