如何将mapboxgl.NavigationControl添加到mapdeck地图？

Question

我正在尝试将Mapbox控件（例如mapboxgl.NavigationControl）添加到使用mapdeck为正在处理的Shiny应用程序创建的地图中。

我是javascript新手，到目前为止，添加控件均未成功。我以为我可以使用htmlwidgets :: onRender（）函数做些事情，但一直无法使它工作。

#Mapdeck/Mapbox needs an auth key.
set_token(key)
map <- function(){
    m <- mapdeck(
    style = mapdeck_style("satellite-streets"),
    pitch = 45,
    location = c(-100,45),
    zoom = 4)
} %>% 
onRender(paste0("function(el, x){
    var nav = new mapboxgl.NavigationControl(); 
    map.addControl(nav,'top-left');}"
))
map()

返回了地图，但仍然不包含地图框导航控件。