满足计算日期标准

Question

我正在尝试计算达到阈值标准的成员（客户）数量，以达到下一级成员资格以及符合条件的日期。

标准是：

• 访问5个或更多地点的会员资格
• 花费至少$ 1500

使用下面的代码，我可以创建一个包含符合上述条件的成员的新数据框，但是，在记录符合条件的日期时，我会陷入困境。

我使用的代码是：

criteria_met <- member_bookings %>% 
      filter(visit_date >= member_join_date, visit_date <= expiry_date) %>% 
      group_by(member_number) %>% 
      summarise(sum_nett = sum(new_total_nett),
                locs_visited = n_distinct(location_id),
                crit_met = as.logical(if_else(sum_nett >= 1500 & parks_visited >= 5, 1, 0))) %>% 
      filter(crit_met == TRUE)

我试图使用mutate(date_met = max(visit_date))但是，正如我应该知道的那样，这只返回了他们最近的访问，而不是符合条件的访问日期。