R Leaflet popupimage требует двух кликов - PullRequest
Новая
       12

R Leaflet popupimage требует двух кликов

0 голосов
/ 18 февраля 2019

Я использую листовки и popupImage для отображения эскизов, нарисованных в разных местах.Изображения из Instagram.Карта здесь: карта эскизов города

Проблема в том, что первый щелчок по маркеру приводит к появлению пустого всплывающего окна.Затем необходимо щелкнуть маркер и снова щелкнуть, чтобы появилось изображение.Как можно решить эту проблему?В чем причина?

Данные и код приведены ниже. 

library(leaflet);library(stringr);library(dplyr)
HBGsk<-structure(list(Date = c("November 2018", "October 2018"), City = c("Harrisburg, PA", "Harrisburg, PA"), Number = 1:2, BriefTitle = c("Bell", "Hand with Pen"), Longitude = c(-76.8912, -76.8905), Latitude = c(40.271345, 40.264896), PasteCoords = c("40.271345, -76.891262", "40.264896, -76.890592"
), URLtoImage1 = c("https://instagram.fagc1-1.fna.fbcdn.net/vp/76c2de2966077b035f763c5ebfa81cd3/5CFB0ABD/t51.2885-15/e35/43914934_1939486809438368_5627501808413927747_n.jpg?_nc_ht=instagram.fagc1-1.fna.fbcdn.net", 
"https://instagram.fagc1-1.fna.fbcdn.net/vp/9570339c8de7dbab0daf3a189b657771/5CFFB066/t51.2885-    15/e35/25006625_782959701891930_5704195625445228544_n.jpg?_nc_ht=instagram.fagc1-1.fna.fbcdn.net"), x = c(-76.8912, -76.8905), y = c(40.271345, 40.264896), year = structure(c(4L,4L), .Label = c("2013", "2016", "2017", "2018"), class =     "factor"), label1 = c("Bell (2018)", "Hand with Pen (2018)")), .Names = c("Date", 
"City", "Number", "BriefTitle", "Longitude", "Latitude", "PasteCoords", "URLtoImage1", "x", "y", "year", "label1"), row.names = c(NA, -2L), class = c("tbl_df", "tbl", "data.frame"))


HBGsk$year<-str_sub(HBGsk$Date,-4,-1);HBGsk$year<-as.factor(HBGsk$year)
HBGsk$label1<-paste0(HBGsk$BriefTitle," (",HBGsk$year,")" )
pal<-colorFactor(c("orange","yellow","cornflowerblue"),domain=HBGsk$year)
leaflet() %>% 
    addCircleMarkers(data=HBGsk, lng = ~Longitude,lat=~Latitude, 
            weight = .65,fillColor = ~pal(year), color="white",
            label=~label1,
            #labelOptions = labelOptions(noHide = T),
            #clusterOptions = markerClusterOptions()),
            popup = popupImage(HBGsk$URLtoImage1),
            options = markerOptions(clickable=TRUE, riseOnHover = TRUE))
...