R：OpenStreetMap + ggsn不兼容，可以替代比例尺和向北箭头吗？

Question

我正在使用OpenStreetMap生成地图，效果很好。但是我现在找不到合适的方法来添加比例尺和向北箭头。我尝试了ggsn，但正如我的示例所示，ggsn似乎与automap（）不兼容。 Prettymapr也有类似的问题。

library(OpenStreetMap)
library(ggsn)
lon <- c(9.92,11.032)
lat <- c(49.4,50.1)
map <- openmap(c(lat[1],lon[1]),c(lat[2],lon[2]),zoom=9,type='osm')
map <- openproj(map, projection="+proj=longlat +datum=WGS84")
autoplot(map)
autoplot(map) + ggsn::scalebar(location="bottomright",y.min=-49.4, y.max=-49.45, 
                     x.min=10.6, x.max=10.8, dist=.1, dd2km= TRUE, model='WGS84',
                     st.dist=.04)

先谢谢您。