Leaflet Marketr Cluster не работает с Echarts4r в Shiny

Question

Не уверен, что это ошибка или я что-то не так сделал. Когда я добавляю эхарт в блестящий, кластеры маркеров в листовке исчезают. Карта работает нормально, когда я удаляю echart. Это как-то связано с htmlwidgets? Код ниже.

library(leaflet)
library(dplyr)
library(shiny)
library(echarts4r)



# Create 3 map points -- 2 will be clustered

map_points <- bind_rows(c(location = 'A', lon = -122.4, lat = 37.8),
                        c(location = 'B', lon = -122.4, lat = 37.8),
                        c(location = 'C', lon = -118.2, lat = 34.0))

map_points$lon <- as.numeric(map_points$lon)
map_points$lat <- as.numeric(map_points$lat)


# Shiny

ui <- fluidPage(
  leafletOutput("mymap"),
  echarts4rOutput("myplot")
)

server <- function(input, output, session){
  output$mymap <- renderLeaflet({
    leaflet(map_points) %>%
      addProviderTiles("OpenStreetMap.Mapnik") %>%
      addCircleMarkers(lng = ~lon, 
                       lat = ~lat, 
                       group = "locations", 
                       layerId = ~location,
                       # adding clusterOptions removes the group in observeEvent
                       clusterOptions = markerClusterOptions() 
      )
  })

  observeEvent(input$mymap_marker_click, {
    print(input$mymap_marker_click)
  })

  output$myplot<-renderEcharts4r({
    ex2<-map_points%>%  
      e_charts(x = lon)

    ex2%>% e_scatter(lat)
  })

}

shinyApp(ui = ui, server = server)

Answer 1

Использование обновленного репозитория исправит проблему.

remotes::install_github(“JohnCoene/echarts4r”)