R: get.diameter -> get_diameter, #704