addASvsPCol_ <- function(DT, productCol="product", values.AdSupported=c("A"),  newCol.nm="adsupported_vs_premium", DT.nm=substitute(DT), verbose=TRUE) {
  
  DT.nm <- capture.output(DT.nm)

  if (newCol.nm %in% names(DT))
    stop(sprintf("'%s' is already a column of %s", newCol.nm, DT.nm))


  DT[, (newCol.nm) := ifelse(get(productCol) %in% values.AdSupported, "AdSupported", "Premium")]

  if (verbose) {
    catn(sprintf("%s of rows in %s are AdSupported", fwp(percTrue(DT[[newCol.nm]] == "AdSupported")), DT.nm))
  }

  return(invisible(DT))
}