3D pathtraced oscillating pillars in R

pillars.R

library(rayshader)
library(rayrender)

for(t in 1:90) {
  sliced = matrix(10, 99, 99)
  sliced2 = sliced
  for(i in 1:nrow(sliced)) {
    for(j in 1:ncol(sliced)) {
      sliced2[i,j] = 10+1*cos(-t/90*2*pi + 8*i/nrow(sliced))
      if(i %% 3 == 0 || j %% 3 == 0) {
        sliced2[i,j] = NA
      }
    }
  }
  sliced2 %>%
    height_shade(texture = c("white")) %>%
    plot_3d(sliced, soliddepth = 9, shadowdepth = 9, theta=45,zoom=0.2,
            solidcolor = "white")
  render_highquality(samples=500, light=FALSE, filename=glue::glue("grid{t}"), clear = TRUE, 
                     clamp_value=20, width=800,height=800,
                     obj_material = diffuse(sigma=30),
                     ground_material = diffuse(color="white",sigma=30), 
                     scene_elements = sphere(y=10,radius=0.5,material=light(intensity = 600)))
}