Is there anyway to use lag and lead functions together from dplyr

Question

I have several *.txt files that look like

ID BP
Id1 A
Id2 A
Id3 T
Id4 C
Id5 A
Id6 T
Id7 A
Id8 T

I want for every ID previous 4 characters from BP