## CREATE DB.SpotifyMeta.Long


warning ("This file is not needed")
if (FALSE) {
  ## Identify which columns will be modified
  colsNewNames <- c("adSuppStreams", "streams", "totalStreams")
  colsToFold.W1 <- paste0(colsNewNames, "W1") # c("adSuppStreamsW1", "streamsW1", "totalStreamsW1")
  colsToFold.W2 <- paste0(colsNewNames, "W2") # c("adSuppStreamsW2", "streamsW2", "totalStreamsW2")
  restOfCols <- setdiff(names(DB.SpotifyMeta), c(colsToFold.W1, colsToFold.W2))

  ## errorcheck -- no duplicates. Exactly all columns represented
  stopifnot(!anyDuplicated(c(restOfCols, colsToFold.W1, colsToFold.W2)))
  stopifnot(identical(sort(names(DB.SpotifyMeta)), sort(c(restOfCols, colsToFold.W1, colsToFold.W2))))

  DB.SpotifyMeta.Long <- 
    rbind(
     DB.SpotifyMeta[, c(.SD[, restOfCols, with=FALSE]
                      , setnames(.SD[, colsToFold.W1, with=FALSE], colsNewNames)
                      , list(Week="Week1")
                     )]
    , DB.SpotifyMeta[, c(.SD[, restOfCols, with=FALSE]
                      , setnames(.SD[, colsToFold.W2, with=FALSE], colsNewNames)
                      , list(Week="Week2")
                     )]
    , DB.SpotifyMeta[, c(.SD[, restOfCols, with=FALSE]
                      , setnames(.SD[, colsToFold.W1, with=FALSE], colsNewNames) + 
                        setnames(.SD[, colsToFold.W2, with=FALSE], colsNewNames)
                      , list(Week="Wk1plusWk2")
                     )]
    )

  ## The `totalStreamsForBothWeeks` column is now captured as the total for Week1&2
  DB.SpotifyMeta.Long[, totalStreamsForBothWeeks := NULL] 
  DB.SpotifyMeta.Long[, Week := factor(Week, levels=c("Week1", "Week2", "Wk1plusWk2"))]

  # Add column for Percentage of Add-related Streams
  DB.SpotifyMeta.Long[, PercOfStreamsAdSupptd := adSuppStreams / totalStreams]

  # DB.SpotifyMeta.Long <- DB.SpotifyMeta.Long[ctr < .4]

  setkeyIfNot(DB.SpotifyMeta.Long, "upc", "Week", verbose=FALSE)

  jesusForData(DB.SpotifyMeta.Long, DB.SpotifyMeta)

}