R: optimized "node.style"