Мы можем попробовать использовать функцию apply
здесь:
sapply(x, function(y) {
name <- paste0("file", y, ".txt")
fileConn <- file(name)
writeLines(c("hello number", y), fileConn)
close(fileConn)
})
Если вам не нужны эти разрывы строк по умолчанию, тогда можно просто вызвать writeLines
с одним символом:
writeLines(paste0("hello number ", y), fileConn)