summarize_yes <- function(data = data, id.var = "patient", patient.i) {
  ifelse(any(data[data[[id.var]] == patient.i, vnms] == "Yes"), "Yes", "No")
}

data$summary_var <- purrr::map(1:10, function(x) summarize_yes(data = data, id.var = "patient", patient.i = x)) # replace 1:10 w/ programmatical vector of patients. you can also do 1:nrow(data)