R Shiny echarts4r 地图缩放

Question

我可以使用 echarts4r 库成功加载 R Shiny 地图。我希望为用户添加一个简单的缩放功能来放大和缩小。

我添加了缩放功能，它显示在地图上（在右上角），但是当我尝试使用时，它实际上并没有进行任何缩放。有什么建议吗？

# ui.R
library(shiny)
library(echarts4r)
library(echarts4r.maps)

shinyUI(fluidPage(
      echarts4rOutput("map")
    ))

# server.R
library(shiny)
library(dplyr)
library(echarts4r)
library(echarts4r.maps)

shinyServer(function(input, output) {

output$map <- echarts4r::renderEcharts4r({
  ca <- e_charts() %>%
  em_map("Canada") %>% 
  e_map(map = "Canada") %>%
  e_datazoom()
})
  
})