label_power10 function

Format numbers as power-of-10 R expressions