Pequeño bug en ggmap: no pinta el último tramo de una ruta

Supongo que no debería escribirlo aquí sino comunicárselo a quien mantiene ggmap. Pero ya tuve una experiencia mejorable con él y dos no serán. Así que lo cuento por acá.

La mayor parte del mérito en el descubrimiento, en cualquier caso, es de una alumna de la clase de R que he dado hoy (en el momento en el que escribo, no en el que lees) en el Banco de Santander. No tengo su nombre ni tengo claro que quisiese que lo mencionase.

Y el bug se manifiesta así:

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
library(ggmap)

mapa <- get_map("calle Embajadores 10, Madrid", zoom = 18)

ruta1 <- route("calle embajadores 4, Madrid,",
    "calle oso 15, Madrid",
    mode = "walking")

ruta2 <- route("calle oso 15, Madrid",
    "calle embajadores 4, madrid",
    mode = "walking")


ggmap(mapa) + geom_path(data = ruta1,
    aes(x = startLon,
    y = startLat,
    xend = endLon,
    yend = endLat))

ggmap(mapa) + geom_path(data = ruta2,
    aes(x = startLon,
    y = startLat,
    xend = endLon,
    yend = endLat))

que es un código que pinta

ruta1

y

ruta2

respectivamente, cuando lo que debería representar en ambos casos es una ruta en forma de ele compuesta de dos segmentos, que son los que contienen tanto ruta1 como ruta2.