How To Use If Text Function In R