как кодировать полилинии, чтобы следовать googleway - PullRequest
Новая
       33

как кодировать полилинии, чтобы следовать googleway

0 голосов
/ 08 ноября 2019

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

Я импортировал свои данные, включая имена всех маршрутов, начальный и конечный лат и долгота, объем трафика на маршрутах и ​​другие переменные (день недели, времядень). Я закодировал координаты в полилинию, но после запуска приложения полилинии не следуют маршруту карты Google (я использую пакет googleway). Другая проблема заключается в том, что карта не является интерактивной. 

lst <- lapply(unique(Tflow$name), function(x)
    lat = c(Tflow[Tflow["name"] == "x", c("Startlat")], Tflow[Tflow["name"] == "x", c("Endlat")])
    lon = c(Tflow[Tflow["name"] == "x", c("Startlong")], Tflow[Tflow["name"] == "x", c("Endlong")]) 
    data.frame(name = x, polyline = encode_pl(lat = lat,lon = lon)) 
})

output$TrafficMap <- renderGoogle_map({
           google_map(key = map_key, 
                      search_box = FALSE, 
                      scale_control = TRUE, 
                        height = 1000) %>%
               add_traffic() %>%
        add_polylines(data=Tflow, polyline="polyline", stroke_colour = "#FF33D6", stroke_weight=7, stroke_opacity=1)
         })

}

Это сводная информация о функции сервера

Я ожидаю, что закодированные полилинии будут следовать маршруту карты Googleа также чтобы иметь возможность выбрать день недели и маршрут и получить объем трафика на этом маршруте, но карта не является интерактивной

...