2017-05-13 1 views

답변

2

이 같은 약을 수행 할 수 있습니다

library(googleway) 
library(leaflet) 
key <- "********************" # Google Directions API Key 
df <- googleway::google_directions("milan", "paris", "driving", key=key) 
pl <- df$routes$overview_polyline$points 
line <- decode_pl(pl) 
bb <- sp::bbox(as.matrix(line)) 
leaflet() %>% 
    fitBounds(bb[2,1],bb[1,1],bb[2,2],bb[1,2]) %>% 
    addTiles() %>% 
    addPolylines(data=line, lng = ~lon, lat = ~lat) 

enter image description here

는 키 here를 가져옵니다.

+1

폴리 라인을 사용하여 googleway에서 googleway를 플롯 할 수도 있습니다 :'google_map (key = key) %> add_polylines (data = data.frame (pl = line), polyline = "pl")' – SymbolixAU

+0

@SymbolixAU 알아두면 좋은 정보 , 멋진 패키지 btw - 감사합니다. – lukeA

관련 문제