# counts per release and track.r


# screen -xRR SoS

setScience(proj="Spotify Playlist Webscrape", subProj="createSampleSOS")


wh <- "LOOKER_WH_LARGE"
dbname <- "prod"
schema <- "spotify"
tbl <- "sample_sos"

setSnowflake(wh=wh, dbname=dbname, start=TRUE)

qry <- "
SELECT * 
FROM production.staging_raw_spotify_v2
WHERE 
     user_id IN ('4c2b7d2721e53aa8b20151f37e43e36c', 'ebe531009c3513ddc58f8212e158eced', '8d38b3c868c91eae280740c3489a0245', 'b72fec3f62dffcc0eaa4bc882043ccd2', '4d3aec7a62b1684d35931b66d1b5d69c', '7c1315eb8efcc1f5243236d870011ec1')
  OR source_uri IN ('spotify:user:nathanielrateliffofficial:playlist:50uPxzDu7ElS91kgjCmezj', 'spotify:user:spotify:playlist:0ApdHY8K71F9WrIWbgiI2G', 'spotify:user:sonycmguk:playlist:1h46AiXVISWykVX1bOGJ6D')
  OR track_uri IN ('spotify:track:5QlVGQPelyfxfCQ40i7blb', 'spotify:track:3FLj7CcJwdk4f2IMVQcxuu', 'spotify:track:1r3e8zFeTbTTZlbJoqiH9p')
  OR upc IN ('886788823600', '5032698664443', '884385139209')
"

sfPopulateTable(qry=qry, tbl=tbl, schema=schema, dbname=dbname, wh=wh, overwrite=TRUE, verbose=TRUE)