end of afternoon work, dplyr over for loop