RosettaCodeData/Task/Reverse-a-string/R/reverse-a-string-1.r

revstring <- function(stringtorev) {
   return(
      paste(
           strsplit(stringtorev,"")[[1]][nchar(stringtorev):1]
           ,collapse="")
           )
}