date()

## [1] "Sun Aug 26 16:26:50 2018"

library(plotly)
 g1 <- plot_ly(z = ~volcano, type = "surface")
 g2 <- plot_ly(z = ~volcano, type = "heatmap")

g1

g2