how to fix Case when and grepl with error codes

Question

I tried to use mutate and case_when to build a new variable. My codes is:

mutate( x= case_when(grepl("Happy", Feeling), &q