# Adding slider to 3D maps?

I want to add slider to a map plot. As an example let’s consider the plotly “3D surface plots in R” tutorial (Multiple Surfaces):

z <- c( c(8.83,8.89,8.81,8.87,8.9,8.87), c(8.89,8.94,8.85,8.94,8.96,8.92), c(8.84,8.9,8.82,8.92,8.93,8.91), c(8.79,8.85,8.79,8.9,8.94,8.92), c(8.79,8.88,8.81,8.9,8.95,8.92), c(8.8,8.82,8.78,8.91,8.94,8.92), c(8.75,8.78,8.77,8.91,8.95,8.92), c(8.8,8.8,8.77,8.91,8.95,8.94), c(8.74,8.81,8.76,8.93,8.98,8.99), c(8.89,8.99,8.92,9.1,9.13,9.11), c(8.97,8.97,8.91,9.09,9.11,9.11), c(9.04,9.08,9.05,9.25,9.28,9.27), c(9,9.01,9,9.2,9.23,9.2), c(8.99,8.99,8.98,9.18,9.2,9.19), c(8.93,8.97,8.97,9.18,9.2,9.18))
dim(z) <- c(15,6)
z2 <- z + 1
z3 <- z - 1
p <- plot_ly(showscale = FALSE) %>%
add_surface(z = ~z2, opacity = 0.98) %>%
add_surface(z = ~z3, opacity = 0.98)

This code creates 3 layers of surface showing all together, I’m thinking on adding a slider so by changing slider we can see each surface separately. I thought maybe adding one column showing index of different layers and combining all three layers in one big matrix might help. Like this:

z <- c( c(8.83,8.89,8.81,8.87,8.9,8.87), c(8.89,8.94,8.85,8.94,8.96,8.92), c(8.84,8.9,8.82,8.92,8.93,8.91), c(8.79,8.85,8.79,8.9,8.94,8.92), c(8.79,8.88,8.81,8.9,8.95,8.92), c(8.8,8.82,8.78,8.91,8.94,8.92), c(8.75,8.78,8.77,8.91,8.95,8.92), c(8.8,8.8,8.77,8.91,8.95,8.94), c(8.74,8.81,8.76,8.93,8.98,8.99), c(8.89,8.99,8.92,9.1,9.13,9.11), c(8.97,8.97,8.91,9.09,9.11,9.11), c(9.04,9.08,9.05,9.25,9.28,9.27), c(9,9.01,9,9.2,9.23,9.2), c(8.99,8.99,8.98,9.18,9.2,9.19), c(8.93,8.97,8.97,9.18,9.2,9.18),c(1,1,1,1,1,1,1,1),c(1,1,1,1,1,1,1))
dim(z) <- c(15,7)
z2 <- z+1
z3 <- z-1
z3[,7] <- 3
zt <- rbind(z,z2,z3)
plot_ly(showscale = FALSE) %>%
Error: Must supply `x` and `y` attributes
For something like this, you probably want to use shiny and toggle visibility of each trace (ie, `visible=TRUE` or `visible=FALSE`) based on the input value of the slider (i.e., `sliderInput()` in shiny)