Effcient shifting in R data.table with missing values

Question

I have a data.table with the following three variables

1. receptionist = id of the reception person
2. week.no = this week\'s number (1 means first week)