回答編集履歴

  rowwise() %>%

  group_map(~ {

  surgery_date = .x$actdate

  filter(actdate > surgery_date & actdate <= surgery_date %m+% months(2)) %>%

  filter(setequal(drugname, regimen_to_remove)) %>%

  select(rownum)