x <- c("what","is","truth")

​

if("Truth" %in% x) {

   print("Truth is found the first time")

} else if ("truth" %in% x) {

   print("truth is found the second time")

} else {

   print("No truth found")

}

​