fig <- plot_ly(z = ~volcano)
fig <- fig%>% add_surface()
fig