A simple animation with a scene lit by an HDR environment image (from hrdihaven.com)

shanghai_ring_hdr.R

library(rayrender)

vecx = 10 * sinpi(1:360/180)
vecz = 10 * cospi(1:360/180)
anglevec = -10 * cospi(1:360/90)

for(i in seq(1,360,by=1)) {
  generate_ground(material = dielectric()) %>%
    add_object(sphere(material = metal())) %>% 
    add_object(disk(radius=3, inner_radius = 2, angle = c(anglevec[i],-i,0))) %>%
    render_scene(parallel = TRUE, environment_light = "shanghai_bund_2k.hdr",fov=40,samples=400, 
                 lookfrom = c(vecx[i],1,vecz[i]), width=800,height=800, filename = glue::glue("ring{i}"))
}