hola... esto me sirve a mi.... uso 2 archivos:fil: texto el cual va ha ser
modificadornm: archivo que contiene 2 columnas, el texto a buscar y el texto que
lo reemplaza
# SCRIPT PARA RENOMBRAR TEXTOS
setwd("d:/")fil <- "txt.txt"scr <- readChar(fil,
file.info(fil)$size)rnm <-
read.csv("rnm.txt",header=TRUE,sep="\t")
for (i in 1:dim(rnm)[1]){scr <-
gsub(rnm[i,1],rnm[i,2],scr)}writeChar(scr,"text_1.txt")
saludos.
[[alternative HTML version deleted]]