weighted cumsum rolling with another column

Question

have a data.frame that looks like this:

library(dplyr)
test <- data.frame("name" = c("Scott","Scott","Scott","