## Function to clean up calculation-fields after name change

f <- function()  {
  pats <- c("estimated_monetized_playbacks", "verified_ad_impressions")
  reps <- c("monetized_playbacks", "ad_impressions")
  x <- clipPaste()
  ret <- mgsub(pat=pats, rep=reps, x)
  clipCopy(ret)
  catn(ret)
  return(invisible(ret))  
}