setScience("misc") setDBall("mysql") tbls <- runQry("show tables")[[1]] extract("track", tbls) runQry("desc track") DT.track_offer_types <- runQry("SELECT offer_type, count(*) as numb_of_tracks from track GROUP BY 1") DT.track_offer_types <- DT.track_offer_types[order(numb_of_tracks, decreasing=TRUE)] DT.track_offer_types[, perc_of_all_tracks := round(100*percOfTotal(numb_of_tracks), 3)] track <- runQry("DESC track") rel <- runQry("DESC releases") DT.labels_and_offer_types <- runQry("select r.label, r.release_id, r.deletions, t.offer_type, count(*) as numb_of_tracks FROM track t LEFT JOIN releases r ON r.release_id = t.release_id group by 1, 2, 3") DT.labels_and_offer_types <- runQry("select r.label, r.release_id, r.deletions, t.offer_type FROM track t LEFT JOIN releases r ON r.release_id = t.release_id") DT.labels_and_offer_types[, deletions := (deletions == "Y")] DT.labels_and_offer_types_aggd <- DT.labels_and_offer_types[, .N, keyby=names(DT.labels_and_offer_types)] formnumb(DT.labels_and_offer_types_aggd[!(deletions), list(number_of_labels = lunique(label), number_of_releases = lunique(release_id)), by=offer_type])[] mack_ave_labels <- extract("Mack Avenue", unique(DT.labels_and_offer_types_aggd$label)) DT.labels_and_offer_types_aggd[label %in% mack_ave_labels] DT.labels_and_offer_types_aggd[label %in% mack_ave_labels] [(!deletions), list(number_of_releases = lunique(release_id)), keyby=list(label, offer_type)][order(offer_type)] DT.mack_ave <- runQry(sprintf("SELECT artist_name, r.* FROM releases r LEFT JOIN release_artist a ON r.artist_id = a.release_artist_id WHERE label in %s", pasteQ(mack_ave_labels))) DT.mack_ave[(release_date) > "2016-02-01"] extract("prim", track$Field) extract("prim", tbls) extract("artist", tbls) setDBall("reportsDD") release_id track$Field (scratch) R|misc> DT.track_offer_types offer_type numb_of_tracks perc_of_all_tracks 1: all 19576404 97.044 2: album_download_stream 351913 1.745 3: none 141149 0.700 4: album_download_only 50776 0.252 5: album_track_download 26995 0.134 6: stream_only 24416 0.121 7: 568 0.003 8: track_download_only 357 0.002 9: track_download_stream 33 0.000