исал следующий код для подсчета количества палиндромных строк в данной строке:

countPalindromes <- function(str){
  len <- nchar(str)
  count <- 0

  for(i in 1:len){
    for(j in i:len){
        subs <- substr(str, i, j)
        rev <- paste(rev(substring(subs, 1:nchar(subs), 1:nchar(subs))), collapse = "")
        if(subs == rev){
          count <- count + 1
        }
      }
  }
  count
}

Это на самом деле работает нормально, но код должен быть оптимизирован таким образом, чтобы он выполнялся с большей скоростью.

Пожалуйста, предложите несколько способов оптимизировать этот кусок кода.