Внедрить ROT-13 в R

Question

Мне нужна функция, которая при передаче строки, содержащей только буквы, поворачивает каждую букву в строке через алфавит на X символов, где X - параметр функции. Известный пример этого - когда X = 13, что называется ROT-13

function ?? }

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

Answer 1

См. ?chartr (раздел Примеры):

rot <- function(ch, k = 13) {
   p0 <- function(...) paste(c(...), collapse="")
   A <- c(letters, LETTERS, " '")
   I <- seq_len(k)
   chartr(p0(A), p0(c(A[-I], A[I])), ch)
}

или здесь http://rosettacode.org/wiki/Rot-13#R:

rot13 <- function(x)
{
  old <- paste(letters, LETTERS, collapse="", sep="")
  new <- paste(substr(old, 27, 52), substr(old, 1, 26), sep="")
  chartr(old, new, x)
}

Answer 2

rotX <- function(ch,x) 
{ #rotate each letter of a string ch by x letters thru the alphabet, as long as x<=13
  old <- paste(letters, LETTERS, collapse="", sep="")
  new <- paste(substr(old, 2*x+1, 26*2), substr(old, 1, 26), sep="")
  chartr(old, new, ch)
}

Это исправляет обе проблемы, которые я отметил в своем комментарии.