R ifelse vs if else vs for loop - datediff excluding weekends

Question

I am trying to calculate whether or not a person canceled their appointment within the proper timeframe. I am confident there is a cleaner way to do this, and I am open to sugge