Excel Data Validation With If Function In R