qShowErrors <- function(minDate=today()-1) {
  if (is.null(minDate) || minDate <= 0)
    minDate <- '1800-01-01'

  qry <- setQry(paste0("select * from stl_load_errors  WHERE starttime >= '", minDate, "' ORDER BY \"query\" DESC limit 5"))
  DT.errs <- runQry(qry, verbose=FALSE)
  setcolorderpt(DT.errs, endCols=c("err_reason", "colname", "raw_field_value", "raw_line"))
  nms <- names(DT.errs)
  nms_less_raw <- nms[!grepl("raw", nms, ignore.case=TRUE)]
  DT.errs[, (nms_less_raw) := lapply(.SD, trim), .SDcols=nms_less_raw]
  print(DT.errs[, lapply(.SD, trim)])
  return(invisible(DT.errs))
}