creds <- read_credentials('../data/cred/bi.3bpo.com')
my_db <- src_mysql(  host = 'bi.3bpo.com', dbname = 'bu_adv_sem'
                   , user = creds$user
                   , password = creds$password)

tables_aggr <- list('stats_sklik_aggr', 'stats_etarget_aggr')
tables_list <- lapply(tables_aggr, FUN = tbl, src = my_db)
tables_list_filtered <- lapply(tables_list, FUN = filter, Day >= start_date & Day <= end_date)

DT_stats_aggr <- rbindlist(lapply(tables_list, collect))

DT_stats_aggr[, Day := as.Date(Day)]

disconnect_all_MySQL()