Label a sequence of row elements in a dataframe (R)

Question

I am working with eye-tracking data and I am trying to create a new column \'SaccadePerTrial\' which will count (and label) the occurrence of saccades (S) within each unique tri