Try adding the guide to your original function:

ggally_hexbin <- function (data, mapping, ...)  {
    p <- ggplot(data = data, mapping = mapping) + geom_hex(...) 
+ guides(fill = guide_colorbar())
    p
}