Lighting effects for R deckgl

[paragemini]

Hello, I am trying to mimic the example of extruded Polygons for Vancouver, B.C especially the lighting effects.

I do see the lighting effect defined here in the below example :
https://github.com/crazycapivara/deckgl/blob/master/_examples/deckgl-examples/hexagon-layer_road-safety-in-the-uk.R

But when I use to add this to the example, nothing happens. Would be grateful for any assistance

library(deckgl)
library(data.table)

data_url <- paste0(
  "https://raw.githubusercontent.com/",
  "uber-common/deck.gl-data/",
  "master/examples/3d-heatmap/heatmap-data.csv"
)
sample_data <- fread(data_url) %>%
  na.omit()

color_to_rgb <- function(color) col2rgb(color) %>% as.vector()
color_range <- c("#0198BD", "#49E3CE", "#D8FEB5", "#FEEDB1", "#FEAD54", "#D1374E") %>%
  lapply(color_to_rgb)

light_settings <- list(
  lightsPosition = c(-0.144528, 49.739968, 8000, -3.807751, 54.104682, 8000),
  ambientRatio = 0.4,
  diffuseRatio = 0.6,
  specularRatio = 0.2,
  lightsStrength = c(0.8, 0.0, 0.8, 0.0),
  numberOfLights = 2
)

initial_view_state <- list(
  longitude = -1.4157267858730052,
  latitude = 52.232395363869415,
  zoom = 6.6,
  pitch = 40.5,
  bearing = -27.396674584323023
)

 deckgl(
  initialViewState = initial_view_state,
  effect = light_settings
) %>%
  add_grid_layer(
    data = sample_data,
    getPosition = ~lng + lat,
    cellSize = 2000,
    elevationScale = 50,
    extruded = TRUE,
    opacity = 0.5,
    colorRange = color_range,
    lightSettings = light_settings,
    getTooltip = JS("object => `${object.count} accidents`")
  ) %>% 
  add_basemap()

[crazycapivara]

Unfortunately they changed the API for the lightning effects, so that I need to wrap the new classes.
For now you can try to pass pure JavaScript via the JS function in R. See using-lighting.