R и Leaflet / Leaftime: как добавить метки к новой точке и выделить новую точку

Question

Я пытаюсь создать анимацию в R. Я использую листовки и листовые пакеты.

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

Дополнительно я хочу добавить метку только к новой точке. Желательно в другом месте, например, в углу карты.

Возможно ли это? Если вы знаете, что я должен делать или где я должен искать это, я буду благодарен.

Мой код сейчас:

d1 <- read.csv("test.csv", sep=";", encoding = "UTF-8")
d2 <- geojsonio::geojson_json(d1,lat="latitude",lon="longitude")

leaflet(d2) %>%
  addTiles() %>%
  setView(44.0665,23.74667,2) %>%
  addTimeline(
    sliderOpts = sliderOptions(
      duration = 10, 
      steps = 2319, 
      showTicks = F), 
    timelineOpts = timelineOptions(
      pointToLayer = htmlwidgets::JS(
        "
        function(data, latlng) {
          return L.circleMarker(latlng, {
            radius: 3,
            color: 'red',
            fillColor: 'pink',
            fillOpacity: 1
          }).bindTooltip(
            'Country: ' + data.properties.country + '<br/>City: ' + data.properties.city + '<br/>Place: ' + data.properties.place,
            {permanent: true}
          ).openTooltip()
        }
        "
      )),
  width = "96%"  )