I have been running the following for loop function with success:
for (i in 1:10){ X=get(paste0("Y_lines",i)) X <- tm_map(X, content_transf