R-styleのリファクタリング