storeNameVector <- function(storeIDs, DT=dim_store, storenamecol="storename")  {
  text <- dim_store[storeid %in% storeIDs][, sprintf("'%s'=%s", get(storenamecol), .BY[[1]]), by=storeid]$V1
  text <- pasteC(text, C=", ")
  text <- paste0("c(", text, ")")

  if (exists("clipCopy") && .Pfm=="Darwin")
    clipCopy(text)
  else 
    cat("\n", text, "\n")

  return(invisible(text))
}