Logic for Date Selection

Question

I am stuck in writing this logic in R. Can someone help me to write this logic?

Logic:

(Priority1) For an Item, Date1 == Calendar the