在R中另存为html时失去交互功能

如何解决在R中另存为html时失去交互功能

我正在使用R中的“传单”库为我的数据制作交互式地理空间地图。该代码运行良好，并且生成的地图显示了弹出信息以及过滤器菜单。但是，当我在R中使用saveWidget（）函数并导出为html时，我失去了地图的大部分交互功能。

反正有解决此问题的方法吗？

Here is my code:
library(dplyr)
library(leaflet)
library(RColorBrewer)
library(htmlwidgets)

map_data <- data.frame(
    "Lati" = c(43.6426,43.6424,43.6544,43.6452,43.6629),"Longi" = c(-79.3871,-79.3860,-79.3807,-79.3806,-79.3957),"Job" = c("Economist","Economist","Teacher","Lawyer"),"First_Name" = c("John","James","Jack","Jason","Jim"),"Last_Name" = c("Smith","Charles","Henry","David","Robert"),"vehicle" = c("car","van","car","none","car")
)

kingdom <- c("Economist","Lawyer","Teacher")
my_palette <- brewer.pal(3,name="Set1")
factpal <- colorFactor(my_palette,levels = kingdom)

groups <- unique(map_data$Job)

# finalize map
map <- leaflet(map_data) %>%
    addTiles(group = "OpenStreetMap") %>%
    addCircleMarkers(  ~Longi,~Lati,popup = ~paste("Job",Job,"<br>","First_Name:",First_Name,"Last_Name:",Last_Name,"vehicle:",vehicle,"<br>"),radius = 10,weight = 10,opacity = 10,color = ~factpal(Job),fill = TRUE,fillOpacity = 1,group = ~Job
    )
map %>%
    addLayersControl(overlayGroups = groups,options = layersControlOptions(collapsed = FALSE)) %>%
    addTiles()

saveWidget(map,file = "m.html")