R if statement incorrectly passes when function used in a tibble

Question

I have confused about this for the past hour and may someone help me out.

Here is my code, where I attempt to create 2 functions that are to be used in a tibble().