Брошюра Взаимодействовать с RenderTable в Safari, но не в Google Chrome - PullRequest
Новая
       32

Брошюра Взаимодействовать с RenderTable в Safari, но не в Google Chrome

0 голосов
/ 26 марта 2019

Мой сайт homeli.st . У меня нет проблем с запуском на сафари, но на карте Google.
В моем «Обновлении разрешений за последние 30 дней», когда пользователь нажимает на местоположение, появляется всплывающее окно (всплывающее окно) и появляется таблица с данными, связанными с местоположением. Однако, когда я пытаюсь запустить свое блестящее приложение в Google Chrome, появляется только всплывающее окно. Я разрабатываю свое приложение на Mac OS 10.13 и R 3.5.1 Кстати, я попробовал все варианты для этого кода, но безрезультатно. Я уверен, что мне нужно кое-что установить, но я не знаю что. Любая помощь будет наиболее ценится enter image description here

output$map <- renderLeaflet({
# Prepare data for pop up
tmp <- tmp[,c("MARADDRESSREPOSITORYID","FULL_ADDRESS","LATITUDE","LONGITUDE",
               "FEES_PAID","PERMIT_ID")]

tmp <- tmp %>% 
  group_by(MARADDRESSREPOSITORYID,LATITUDE,LONGITUDE) %>% 
  mutate(Permit_list = paste0(PERMIT_ID, collapse = ", "),nPermit =n(),address= tolower(first(FULL_ADDRESS)))
tmp <- tmp %>% group_by(MARADDRESSREPOSITORYID,LATITUDE,LONGITUDE,Permit_list,nPermit,address) %>% summarize(total_Fees = sum(FEES_PAID)) 

# Get the ANC and permit types chosen by the user

if (!is.element("All",input$anc) && !is.element("All",input$permit.type))
  marad <- Building30$MARADDRESSREPOSITORYID[which(Building30$ANC %in% input$anc & Building30$PERMIT_SUBTYPE_NAME %in% input$permit.type)]
else if (!is.element("All",input$anc))
  marad <- Building30$MARADDRESSREPOSITORYID[Building30$ANC %in% input$anc ]
else if (!is.element("All",input$permit.type))
  marad <- Building30$MARADDRESSREPOSITORYID[Building30$PERMIT_SUBTYPE_NAME %in% input$permit.type]
else 
  marad <- Building30$MARADDRESSREPOSITORYID
if (length(marad) >= 1)
  tmp <- subset(tmp, MARADDRESSREPOSITORYID %in% marad)

#Prepare the colors and the legend for leaflet map

tmp$BeatAutoLvl <- cut(tmp$total_Fees, 
                       c(0,100,500,1500,10000,50000), include.lowest = T,
                       labels = 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,
                       labels = c('<100x', '.100-500x', '500-1500x', '1500-10000x', '10000x+'))
beatCol <- colorFactor(palette = 'RdYlGn', factor(tmp$BeatAutoLvl ))

#Draw the map

my.map <- leaflet() %>%
  addProviderTiles(provider = providers$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, "<br>",
                                 "# Permits: ",tmp$nPermit, "<br>",
                                 "Fees Paid: ",tmp$total_Fees, "<br>")) %>%
  addLegend("bottomleft", pal = beatCol, values = tmp$BeatAutoLvl, title = "By Total Fees Paid", opacity = 1)
 })

# If a location in the map has been clicked, get the location
# and retrieve the values

makeReactiveBinding('locSelected')
observe ({
     event <- input$map_marker_click
     if (is.null(event)) return()
      MapClicked <- subset(Building30,MARADDRESSREPOSITORYID == event$id) [,c("FULL_ADDRESS","PERMIT_ID","DESC_OF_WORK")]
      locSelected <<- MapClicked
 })

# Show the table with the subset table locSelected
output$detail <- renderDataTable(
if (!is.null(locSelected)) {locSelected}  else 
  Building30
)
...