How can I create a wire-plot in R (persp)

Plotly R, MATLAB, Julia, Net Plotly R
1

Is there a way to create a persp() type of plot with plotly in R (a wire-plot)? For example, instead of the standard way also used in demos:

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

to get something more like this (but plotly-pretty):

persp(volcano, phi=20, theta=60)

Thanks!