test3

html_document: toc: yes toc_float: yes —

library(leaflet)
city <- c("Paris", "Berlin")
lat <- c( 48.871803902216435, 52.514343644687685)
lng <- c(2.350879470384976, 13.412769909042522)
days <- c(24,7)
travePlan <- data.frame(city=city, lat=lat, lng=lng, days=days)
map <- leaflet(travePlan) %>% addProviderTiles(providers$CartoDB.Positron) %>% setView(lng = 8.817423, 2.521719, zoom=4) %>% addCircles(lng = lng, lat=lat, radius=days*2000, color = "red") %>% addMiniMap(width = 150, height=150) %>% addPolylines(lng=lng, lat=lat, weight = .5);map