ConversionType.r

clipCopy(srcDir)


makeFactorUsingDict()
getDict.SpotifyTier <- function () 
{


    c(
      Daypass = NA, 
      Open = "FreeTier", 
      Free = "FreeTier", 
      Limited = "FreeTier", 
      DesktopBasic = "LimitedTier", 
      Premium  = "PremiumTier"
      ,
      D = NA, 
      O = "FreeTier", 
      F = "FreeTier", 
      L = "FreeTier", 
      U = "LimitedTier", 
      P  = "PremiumTier"
    )
}


dict.SpotifyTier <-  getDict.SpotifyTier()


tt <- sample(names(dict.product)[-3L], 20, TRUE)



tt.uniq <- unique(tt)
(levs <- names(dict.SpotifyTier))
(labs <- dict.SpotifyTier)

intersect(levs, tt.uniq)
labs[ intersect(levs, tt.uniq) ]

labs <- unique(labs)
labs <- labs[!is.na(labs)]

factor(dict.SpotifyTier[tt], levels=labs)