Create smallest grid in leaflet R

Question

I want to create the smallest grid as possible in leaflet R. How should I go about it ?

My current code is :-

leaflet()%>%
  addTiles() %>%
  setView(lng = 101.9758, lat = 4.21053, zoom = 10)) %>%
  addGraticule(interval = 0.02, sphere = FALSE) %>%
  addMarkers(101.6995, 3.1473) 

Here the picture output from the code before zoom

Here the picture after zoom in

The grid quite large after I zoom in but if I change addGraticule(interval = 0.01), my laptop hang and no output result. I want the grid to be small as picture below

Is there other way I can achieve my aim?

I found other function that might help which is

addSimpleGraticule(
  map,
  interval = 20,
  showOriginLabel = TRUE,
  redraw = "move",
  hidden = FALSE,
  zoomIntervals = list(),
  layerId = NULL,
  group = NULL
)

zoomIntervals :- use different intervals in different zoom levels. If not specified, all zoom levels use value in interval option.

But I'm not sure how to specify zoomIntervals arguments.

Answer 1

The Documentation of the R function addSimpleGraticule is not very verbose, but you can get a hint about the required data structure here.

You can set the number of grid lines per meter depending on the zoom level indeed using the zoomIntervals option:

library(leaflet)

leaflet() %>%
  addTiles() %>%
  setView(lng = 101.6995, lat = 3.1473, zoom = 20) %>%
  addMarkers(101.6995, 3.1473) %>%
  addSimpleGraticule(
    showOriginLabel = TRUE,
    redraw = "move",
    hidden = FALSE,
    zoomIntervals = list(
      list(start = 1, end = 3, interval = 10),
      list(start = 4, end = 9, interval = 1),
      list(start = 10, end = 17, interval = 0.1),
      list(start = 18, end = 20, interval = 0.0002)
    ),
    layerId = NULL,
    group = NULL
  )