Testing the module for the blastula email attachment within GitHub actions

[cevaboyz]

Testing the module for the blastula package for the email attachment creation

We will first test the .csv variant of the attachment, if it works we will consequently test the .xlsx version of the module.

The code is the following, it uses the temp folder made in the virtual environment

write.csv(final_results, paste0("final_results", format(date, "%d-%b-%Y %H.%M"), ".csv"))

file_path <- paste0("final_results", format(date, "%d-%b-%Y %H.%M"), ".csv")

The implementation in the if/else structure is the following

if (n_row_final_results == 0) {
    write.csv(
        as.data.frame(n_row_final_results),
        file = paste0("logs/Amazon_name_log_corretti", date, ".csv")
    )
    
} else{
    email <-
        compose_email(body = blocks(tbl_html),
                      footer = "Questo è un elenco generato automaticamente degli ASIN che richiedono una verifica del Product Title, si ricorda che questo sistema non assicura il 100% di sicurezza ed affidabilità, si richiede quindi un controllo manuale periodico che effettivamente gli ASIN ed i loro Product Titles siano corretti. Per Ulteriori informazioni contattare lo sviluppatore.",
                      title = "AMAZON ITALIA: TITOLI PRODOTTO CHE RICHIEDONO UNA VERIFICA")
    
    email <-
        email %>% add_attachment(
            file = file_path
             )
}

[cevaboyz]

The email module with the email-attachment system seems to work with CSV, the next step is to update it with XLSX file extension