library(stringi) stri_reverse("madam") ## [1] "madam" stri_reverse("sir") ## [1] "ris"
ifelse(identical(c("a", "s"), c("a", "s")), "Indeed", "Not At All") # Your question could be solved as: ifelse(identical(string, reversed_split), "Indeed", "Not At All")