R语言遍历字符串再拼接复原

一、利用substring()函数截取的方式实现字符串的遍历（以字符串google为例）

google="google"

ergodic = function(word){
  for (i in 1:nchar(word)){
    a=substring(word,i,i)
    print(a)
  }
}
ergodic(google)

二、利用paste()函数再拼接复原，b=paste(b,a,sep='')，指定连接符为空

google="google"
b=''

ergodic = function(word){
  for (i in 1:nchar(word)){
    a=substring(word,i,i)
    print(a)
    b=paste(b,a,sep='')
  }
  print(b)
}

ergodic(google)

三、结果