In bridachristian/DataQualityCheckEuracAlpEnv:

station_name <- params$station_name
errors_list_critical <- params$errors_list_critical
errors_list_warning <- params$errors_list_warning
dqc_date <- params$dqc_date

Station: r station_name

Data Quality Check : r dqc_date

# names(errors_list_warning)

# names(errors_list_critical)

r if(errors_list_critical$err_empty$Status == "Y"){ paste("Empty file! (C)")}

r if(errors_list_critical$err_empty$Status == "Y"){ paste("The file of station",station_name, "is empty.")}

r if(errors_list_critical$err_logger_number$Status == "Y"){ paste("Logger number doesn't match! (C)")}

r if(errors_list_critical$err_logger_number$Status == "Y"){ paste("Logger numbers doesn't match. Old:",errors_list_critical$err_logger_number$Values[1], "New:",errors_list_critical$err_logger_number$Values[2])}

r if(errors_list_critical$err_structure$Status == "Y"){ paste("Datatable structure issues! (C)")}

if(errors_list_critical$err_structure$Status == "Y"){ 
  # datatable(errors_list_critical$err_structure$Values)
  kable(errors_list_critical$err_structure$Values)
}

r if(errors_list_critical$err_no_new_data$Status == "Y"){ paste("No new data! (C)")}

r if(errors_list_critical$err_no_new_data$Status == "Y"){paste("No new data! Date in download table is successive of the last date in .dat file")}

r if(errors_list_critical$err_overlap$Status == "Y"){ paste("Overlap! (C)")}

if(errors_list_critical$err_overlap$Status == "Y"){ 
  # df_overlap  = data.frame("overlap:",errors_list_critical$err_overlap$Values)
  # colnames(df_overlap) = c("", "Date")
  df_overlap = errors_list_critical$err_overlap$Values
  # DT::datatable(df_overlap,rownames = F)
  kable(df_overlap,rownames = F)
}

r if(errors_list_critical$err_missing_record$Status == "Y"){ paste("Missing record! (C)")}

if(errors_list_critical$err_missing_record$Status == "Y"){ 
  # datatable(errors_list_critical$err_missing_record$Values)
  kable(errors_list_critical$err_missing_record$Values)
}

r if(errors_list_critical$err_restart_record$Status == "Y"){ paste("Missing record before a restart! (C)")}

if(errors_list_critical$err_restart_record$Status == "Y"){ 
  # datatable(errors_list_critical$err_restart_record$Values)
  kable(errors_list_critical$err_restart_record$Values)
}

r if(errors_list_critical$err_date_missing$Status == "Y"){ paste("Missing dates! (W)")}

if(errors_list_critical$err_date_missing$Status == "Y"){ 
  # datatable(errors_list_warning$err_date_missing$Values)
  kable(errors_list_critical$err_date_missing$Values)

}

r if(errors_list_warning$err_range_alert$Status == "Y"){ paste("Values out of range! (W)")}

if(errors_list_warning$err_range_alert$Status == "Y"){ 
  # datatable(errors_list_warning$err_range_alert$Values)
  kable(errors_list_warning$err_range_alert$Values)
}

bridachristian/DataQualityCheckEuracAlpEnv documentation built on Oct. 27, 2019, 5:55 p.m.