#' BT Tower Parameter Monitor
#'
#' Creates a PDF of key paramaters on a time plot. Saves in current working directory
#'
#' @param d Dataframe containing the raw NOx_crit output file - or a group of the bound together
#'
#' @export
bt_fastnox_param_monitor = function(d){
names(d)[1] = "date"
d$date = parse_excel_date(d$date)
start_date = as.character(d$date[1])
start_date = gsub(" ","_",start_date)
start_date = gsub(":","",start_date)
start_date = gsub("-","",start_date)
end_date = as.character(d$date[nrow(d)])
end_date = gsub(" ","_",end_date)
end_date = gsub(":","",end_date)
end_date = gsub("-","",end_date)
filename = paste(start_date,"__",end_date,"_btnoxparams.pdf",sep = "")
pdf(file = filename,width = 10,height = 15)
timePlot(d,pol = c("NO_Conc","NO2_Conc","NOx2_conc","CH1_zero","CH2_zero","nom_sens_1","CH1_sens","nom_sens_2","CH2_sens","nom_ce"
,"NO2_ConEff","PMT_Temp","Control_Temp","Rxn_Vessel_Pressure","blc_temp","SampleFlow1","SampleFlow2",
"PControl_sig"),y.relation = "free")
dev.off()
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.