在 echarts4r 中使用 `e_dispatch_action_p` 的 `brush` 动作不起作用

问题描述

我想在一个echart中显示几个拉丝区域。在 the example in the documentation 中，dataZoom 按预期工作，brush 没有：

library(shiny)
library(echarts4r)

ui <- fluidPage(
  fluidRow(
    column(8,echarts4rOutput("chart")),column(4,actionButton("zoom","Zoom"))
  )
)

server <- function(input,output,session) {
  output$chart <- renderEcharts4r({
    cars %>%
      e_charts(speed) %>%
      e_scatter(dist) %>%
      e_brush()
  })
  
  # this works
  observeEvent(input$zoom,{
    echarts4rProxy("chart") %>%
      e_dispatch_action_p("dataZoom",startValue = 1,endValue = 10)
  })
  
  # this does not work
  observeEvent(input$zoom,{
    echarts4rProxy("chart") %>%
      e_dispatch_action_p(
        "brush",areas = list(
          brushType = 'lineX',range = list(1,10)
        )
      )
  })
}

shinyApp(ui,server) 

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）