e_band and proxy

[helgasoft]

Identified 3 problems with e_band and Shiny proxy. They are marked in the code as (1), (2) and (3).
To replicate - uncomment only one at a time and rerun.

runApp( list( 
  ui = fluidPage( 
    actionButton("pxy", "Proxy"),
    echarts4rOutput("plot")
  ),
  server = function(input, output, session){
    df <- data.frame(
      x = 1:10,
      y = runif(10, 5, 10)
    ) %>%
      dplyr::mutate(
        lwr = y - runif(10, 1, 3),
        upr = y + runif(10, 2, 4)
      )
    
    output$plot <- renderEcharts4r({
      df %>%
        e_charts(x) %>%
        e_scatter(y) %>%
        e_band(lwr, upr) %>%
# (1) Error in [[: subscript out of bounds; 
#     e_band cannot take extra parameters like color, name, etc.
#       e_band(lwr, upr, color='cyan') %>%
        e_datazoom()
    })
    
    observeEvent(input$pxy, {
      echarts4rProxy("plot", data=df, x=x) %>% 
# this is ok, but comment out when testing (2) or (3)
        e_line(y) %>% e_execute()
        
# (2) Error in proxy$session$sendCustomMessage: attempt to apply non-function
#        e_band(lwr, upr) %>% e_execute()

# (3) wrong display
#        e_dispatch_action_p("dataZoom", startValue=3, endValue=6)
    })
  })
)

[helgasoft]

Maybe not a fix, but a workaround for (3)

output$plot <- renderEcharts4r({
    ...
   e_datazoom() %>%
   e_toolbox(show=FALSE)     # add this line

[helgasoft]

Found solutions to problems (1) and (2) as well. Fixes will be coming in a Pull Request, when ready.