Purrr In R finding last row within a group that meets a criteria and then pulling a value from that row

Question

So I think I\'m overthinking this one, I\'ve managed to create a functional code, but its incredibly slow and I think that if I use Purrr correctly I will see massive improv