ifelse() used with all() on multiple columns

Question

I have this data:

library(tidyverse)

data <- tribble(
  ~a, ~b , ~c , ~d,
  0, 0, 0, 0,
  1, 1, 0, 0,
  0, 1, 0, 0,
  0, 0, 0, 1
)

and wo