DT <- sfQry(makeQry(tbl=tbl.detailed, schema=schema, colsToPull="*", expandStar=FALSE)) %>% setIDCols()


## OS_GROUP
grp <- groups[[6]]

## OS_GROUP, SOURCE
grp <- groups[[22]]

## ISRC, COUNTRY
grp <- groups[[14]]

{
  print(grp)
  tmp_colsToPull <- c(uid=uid_col, colGroups)[grp] %>% unlist(use.names=FALSE)
  if ("album_code" %in% tmp_colsToPull) {
    selfname_(tmp_colsToPull)
    names(tmp_colsToPull)[tmp_colsToPull == "album_code"] <- "upc"
  }
  try(create_spotify_user_counts_table(colsToPull=tmp_colsToPull, tbl_in=tbl.detailed, schema=schema, confirm_streams=TRUE, streams_expected=streams_expected, having_clause=NULL, minDate=NULL, verbose.qry=verbose.qry))
}


## ----------------- MANUAL CONFIRMATION ------------------------- ##

tbl.os_group <- "by_os_group"

DT.os_group <- sfQry(makeQry(tbl=tbl.os_group, schema=schema, colsToPull="*", expandStar=FALSE)) %>% setIDCols()
DT.os_group[, sum(streams), keyby=os_group]
streams_actual.by_source_os[, sum(rows), keyby=os_group]
jesusForData(DT.os_group)

DT.os_group.actual <- sfQry("
SELECT 
  OS_GROUP,
  friday_weekof(activity_date::date) as week,
  count(*) as streams
FROM spotify.sos_from_raw_view
GROUP BY 1, 2
ORDER BY 1, 2") %>% setIDCols()

DT.os_group[, list(os_group, week=date, streams)]

DT.os_group.actual[os_group == "iOS/OSX"]
DT.os_group[os_group == "iOS/OSX", list(week=date, streams)]


DT.ios <- DT[os_group == "iOS/OSX"]



=======================================================================================================