传单在Safari中与RenderTable交互，但在Google Chrome中不起作用

Question

我的网站是 homeli.st 。我可以在safari上运行它，但在google map上没有问题。
在我的“最近30天许可更新”中，当用户单击位置时，会出现一个弹出窗口，并显示一个带有与位置相关联的数据的表。但是，当我尝试在Google Chrome上运行闪亮的应用程序时，只会显示弹出窗口。我正在Mac OS 10.13和R 3.5.1上开发我的应用程序 顺便说一句，我尝试了此代码的所有变体，但无济于事。我确定我必须设置一些内容，但是我不知道要做什么。我们将不胜感激任何帮助

  output $ map <-renderLeaflet（{
＃准备要弹出的数据
tmp <-tmp [，c（“ MARADDRESSREPOSITORYRYID”，“ FULL_ADDRESS”，“纬度”，“经度”，
               “ FEES_PAID”，“ PERMIT_ID”）]

tmp <-tmp％>％
  group_by（MARADDRESSREPOSITORYRYID，LATTITUDE，LONGITUDE）％>％
  mutate（Permit_list = paste0（PERMIT_ID，崩溃=“，”），nPermit = n（），地址=更低（第一（FULL_ADDRESS）））
tmp <-tmp％>％group_by（MARADDRESSREPOSITORYID，LATTITUDE，LONGITUDE，Permit_list，nPermit，address）％>％summary（total_Fees = sum（FEES_PAID））

＃获取用户选择的ANC和许可类型

如果（！is.element（“ All”，input $ anc）&&！is.element（“ All”，input $ permit.type））
  marad <-Building30 $ MARADDRESSREPOSITORYID [[（Building30 $ ANC％in％input $ anc＆Building30 $ PERMIT_SUBTYPE_NAME％in％input $ permit.type）]
否则if（！is.element（“ All”，input $ anc））
  marad <-Building30 $ MARADDRESSREPOSITORYIDID [Building30 $ ANC％in％input $ anc]
否则if（！is.element（“ All”，input $ permit.type））
  marad <-Building30 $ MARADDRESSREPOSITORYID [Building30 $ PERMIT_SUBTYPE_NAME％in％input $ permit.type]
其他
  marad <-Building30 $ MARADDRESSREPOSITORYID
如果（长度（marad）> = 1）
  tmp <-子集（tmp，MARADDRESSREPOSITORYID％in％marad）

＃准备传单图的颜色和图例

tmp $ BeatAutoLvl <-cut（tmp $ total_Fees，
                       c（0,100,500,1500,10000,50000），include.lowest = T，
                       标签= c（'<100x'，'。100-500x'，'500-1500x'，'1500-10000x'，'10000x +'））
beatCol <-colorFactor（palette ='YlOrRd'，factor（tmp $ BeatAutoLvl））
tmp <-as.data.frame（tmp）#beatCol（tmp $ BeatAutoLvl）
tmp $ BeatAutoLvl <-cut（tmp $ total_Fees，
                       c（0,100,500,1500,10000,50000），include.lowest = T，
                       标签= c（'<100x'，'。100-500x'，'500-1500x'，'1500-10000x'，'10000x +'））
beatCol <-colorFactor（palette ='RdYlGn'，factor（tmp $ BeatAutoLvl））

＃绘制地图

my.map <-leaflet（）％>％
  addProviderTiles（provider = provider $ CartoDB.Positron）％>％

  addCircleMarkers（layerId = tmp $ MARADDRESSREPOSITORYID，
                   lng = tmp $ LONGITUDE，lat = tmp $ LATITUDE，color = beatCol（tmp $ BeatAutoLvl），radius = 5，label = tmp $ total_Fees，
                   popup = paste（“ Address：”，tmp $ address，“ 
”，
                                 “＃许可证：”，tmp $ nPermit，“ 
”，
                                 “已付费用：”，tmp $ total_Fees，“ 
”））％>％
  addLegend（“ bottomleft”，pal = beatCol，值= tmp $ BeatAutoLvl，标题=“按总​​费用支付”，不透明度= 1）
 }）

＃如果单击了地图中的某个位置，请获取该位置
＃并检索值

makeReactiveBinding（'locSelected'）
观察（{
     事件<-input $ map_marker_click
     如果（is.null（event））return（）
      MapClicked <-子集（Building30，MARADDRESSREPOSITORYID == event $ id）[，c（“ FULL_ADDRESS”，“ PERMIT_ID”，“ DESC_OF_WORK”）]
      locSelected <<-MapClicked
 }）

＃显示带有子集表locSelected的表
output $ detail <-renderDataTable（
如果（！is.null（locSelected））{locSelected} else
  建筑30
）