Finding position where the next value is larger

Question

I have a data set df, I have a code
df1 <- df %>% summarise(across(.fns = ~max(which(.x == min(.x[which(lag(.x) == .x & lead(.x) > .x)])), 1)))