``` library(plotly) p<-plot_ly( x = 1, y = 1, z = 1, type = "scatter3d", mode = "markers") p ```  `plotly_POST(p)` 