HI @mlauber71
When I execute my batch file, all my workflow executes except my Table to R. I can’t finds any log file for anything that was ran as a batch file. I would like to know what is the best way to trouble shoot this issue
Regards
Pio
rframe <- knime.in
Day <- c("Sunday", "Monday", "Tuesday", "Wednesday", "Thursday",
"Friday", "Saturday")[as.POSIXlt(Sys.Date())$wday + 1]
if( Day == ‘Monday’ |Day == ‘Tuesday’ |Day == ‘Wednesday’ |Day == ‘Thursday’ | Day == ‘Friday’){
library(mailR)
library(htmlTable)
#rename column names to own
names(knime.in)[2] <- ‘STAGE / STEP’
names(knime.in)[1] <- ‘Number of Wafers’
Convert the data frame into an HTML Table
y <- htmlTable(knime.in, rnames = FALSE)
location <- paste0("J:/ENG/PIO/")
Define body of email
#Paste is basically a concat
html_body <- paste0(’<font color=“blue”><b> Number of Stage;Step with over 2 wafer counts</b></font>’, y, ‘<font color=“blue”><b> Number of P2 wafers </b></font>’, knime.flow.in[[“LOTID (Unique count)”]], ‘<font color=“blue”><br><b> Number of P1 wafers </b></font>’,knime.flow.in[[“LOTID (Count)”]],’<font color=“blue”><br><b> Number of wafers over 72 hrs </b></font>’,knime.flow.in[[“Count(LOTID)”]],’<font color=“blue”><br><b> Number of Scap wafers to be reviewed </b></font>’,knime.flow.in[[“Lot”]],’<font color=“blue”><br><b>Google Vacuum Daily Report - Vacuum Hold Tab & Scrap Tab has been updated’)
library(mailR)
#set working directory
setwd(location)
send.mail(to = c("pio.jesudoss@xxxx.com"),
from = "pio.jesudoss@xxxx.com",
#to = c("pio.jesudoss@xxxx.com"),
#subject = paste0("Changepoint - Detection on ", knime.flow.in[["Prod_Code"]], " Rosewood ", knime.flow.in[["Target_Var"]]),
subject = "Vacuum Daily Report - HOLDS & SCRAP",
body = html_body,
html = TRUE,
inline = TRUE,
smtp = list(host.name = "mailhost.xxxx.com",
port = 25,
ssl = FALSE),
#attach.files = c(paste0(location_a,"Top_10_Tools.pdf"), paste0(location_a,"Top_tools_data.csv"), paste0(location_a,"Top_10_Recipes.pdf"), paste0(location_a,"Top_recipes_data.csv"), paste0(location_a,"Top_10_metrology.pdf"), paste0(location_a,"Top_met_data.csv"), paste0(location_a,"Top_10_LSP.pdf"), paste0(location_a,"Top_LSP_data.csv")),
#attach.files = c(paste0(location,"HOLDS.csv"),paste0(location,"Hold_Greater_72_Hours_Details.csv"),paste0(location,"Scrap_wafers_to_be_rewviewed.csv")),
authenticate = FALSE,
send = TRUE)}