@ch,
Use the minimap to show a side map showing the area where the map is zoomed as per your requirements.
Use addMiniMap() function like below.
leaflet() %>% setView(lng=77.669907, lat=13.0118285, zoom = 10) %>% addTiles() %>% addMarkers(lng=77.669907,
lat=13.0118285) %>% addMiniMap()