Добавление отступов к fitBounds в листовке для R

Question

Я хочу создать конвейер в R, который строит карту с использованием листовки, которая масштабируется соответственно долготе и широте любого заданного набора данных.

fitBounds() соответствует моим потребностям, если бы я мог добавить больше «отступов»вокруг региона.

Глядя на меню справки, это можно сделать, используя fitBounds(options = list(), но приведенная ссылка ведет к буклету для меню справки Javascript.

Мой вопрос таков;Как установить отступы в подгонке?

Вот пример кода, адаптированный из учебного буклета;

library(tidyverse)
library(leaflet)

leaflet() %>% 
  addTiles() %>%
  fitBounds(
    lng1=-118.456554, lat1=34.078039,
    lng2=-118.436383, lat2=34.062717
  )

Спасибо,

Answer 1

Чтобы передать параметр padding в fitBounds(), необходимо создать список с вектором, включая ваши границы, с именем padding;

т.е. fitbounds(options = list(padding = c(50,50)))

В примере;

library(tidyverse)
library(leaflet)

leaflet() %>% 
  addTiles() %>%
  fitBounds(
    lng1=-118.456554, lat1=34.078039,
    lng2=-118.436383, lat2=34.062717,
    options = list(padding = c(400,400))
  )