R xpath and some add values