dry the r code
fixes