``` p <- plot_ly(z = ~volcano) %>% add_surface() api_create(p, filename = "file/volcano", sharing = "private") ``` A random number named of public grid is created home when posting a private graph.