fix r selection