Issues adding labels to mosaic3d plot in r

Question

I am able to see labels if I use the simple 2d mosaic() function based on this example below.

labs <- round(prop.table(Titanic), 2)
mosaic(Titanic, pop = FALSE)
labeling_cells(text = labs, margin = 0)(Titanic)

However if i try to change this to mosaic3d then all the labels disappear and i see some black dots. Any help on how to add labels to mosaic3d plot is much appreciated.