for(i in nrow(NBA_Clutch$Washington[i])) {
  if is.na(NBA_Clutch$Washington[i] == FALSE) {
    print(NBA_Clutch$Washington[i])
  } else {
    print(NBA_Clutch$Cleveland[i])
  }
}

NBA_Clutch$newcolumn <- NBA_Clutch$Washington
NBA_Clutch$newcolumn[is.na(NBA_Clutch$newcolumn)] <- NBA_Clutch$Cleveland[is.na(NBA_Clutch$newcolumn)]

NBA_Clutch$newcolumn <- ''

for(i in 1:nrow(NBA_Clutch)) {
  if (is.na(NBA_Clutch$Washington[i])) {
    NBA_Clutch$newcolumn[i] <- NBA_Clutch$Cleveland[i]
  } else {
    NBA_Clutch$newcolumn[i] <- NBA_Clutch$Washington[i]
  }
}

NBA_Clutch %>% mutate(WA_CL= coalesce(Washington, Cleveland))

NBA_Clutch$WA_CL <- na.omit(unlist(NBA_Clutch[,c("Washington", "Cleveland")]))

NBA_Clutch$newColumn = ifelse( !is.na(NBA_Clutch$Washington,
                               NBA_Clutch$Washington,
                               NBA_Clutch$Cleveland)

for(i in 1:nrow(NBA_Clutch)) {