# \donttest{
set.seed(1)
# Simple example
canvas_smoke(colors = "all", resolution = 500)
# Advanced example
reds <- colorRampPalette(c("red", "black"))
blues <- colorRampPalette(c("goldenrod", "navyblue"))
palette <- c(reds(100), blues(100))
canvas_smoke(colors = palette, init = 3, shape = "clouds", resolution = 500)
# }
Run the code above in your browser using DataLab