addLegendNumeric horizontal -> bins not working

[mtennekes]

trafficstars

Probably related to #82

library(leaflet)
data(quakes)
numPal <- colorNumeric('viridis', quakes$depth)
leaflet() %>%
	addTiles() %>%
	addLegendNumeric(
		pal = numPal,
		values = quakes$depth,
                orientation = "horizontal", 
                width = 200,
                bins = 10,
		position = 'topright',
		title = 'addLegendNumeric',
		group = 'Numeric Data'
	) 

I get:

In "vertical" orientation I get the expected ticks, i.e. 50, 100, ... 650.