The following code won\'t detect the written element and always gives 0 (false) response in the plant column.
ourData <- myData %>% mutate(plant = ifel