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]]

