create_counts_table_name_from_colsToPull <- function(colsToPull, uid_columns=c("anonymized_uid", "user_id", "uid"), preface="by") {
    words <- colsToPull %>% unname() %>% tolower() %>% setdiff(., uid_columns)
    if (!length(words))
      return("daily_totals")
    else {
      if (any(wh.playlist <- grepl("^(playlist_|source_uri$)", words)))
        words <- words[!wh.playlist] %>% c("playlist")
      if (any(wh.upc <- grepl("^(album_code|upc$)", words)))
        words <- words[!wh.upc] %>% c("upc", .)
      sprintf("%s_%s", preface, pasteC(words, C="_"))
    }
}