for(i in seq_along(filePaths)){
data = within(data, {
subsidiary="Client : acronym[i]"
})
}