quickCompareSnowflakeRedshift <- function(cluster=4, wh=getSnowflakeWH(), dbname=getSnowflakeDB()) {

  ## TODO: 
  stop("This function not yet implemented: 

    GOAL:  Have a function that quickly checks if the two are in-sync by checking 
          High-level number of rows, total gross, total units. 

          Actually, as a I write this, I think that the current function being used in the dbconciile project
          has a parameter, where if NULL, will do exactly that

          Try wrapping that function
    ")
}