edit r check end color