How to select largest column (by index) whch has conditional value?

Question

I\'m looking to select the largest column number which has a value above 1.

    data.frame(\'a\' = 1:2, \'b\' = 3:4, \'c\'=2:1) %>% 
      mutate(ok = pmap