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

​

if("Truth" %in% x) {

   print("Truth is found")

} else {

   print("Truth is not found")

}

​