Convert CamelCase to snake_case.
snakeize(x)
Taken from ~/ggplot2/utilities.r. Taken from ~/ggplot2/utilities.r