append: Append Proxy

Description Usage Arguments Details Examples

Description

Append data dynamically.

Usage

1
2
3
4
5
6
7
8
9
e_append1_p(proxy, series_index = NULL, data, x, y)

e_append1_p_(proxy, series_index = NULL, data, x, y)

e_append2_p(proxy, series_index = NULL, data, x, y, z, scale = NULL,
  symbol_size = 1)

e_append2_p_(proxy, series_index = NULL, data, x, y, z, scale = NULL,
  symbol_size = 1)

Arguments

proxy

An echarts4r proxy as returned by echarts4rProxy.

series_index

Index of serie to append to (starts from 0).

data

Data.frame containing data to append.

x, y, z

Columns names to plot.

scale

A scaling function as passed to e_scatter.

symbol_size

Multiplier of scaling function as in e_scatter.

Details

Currently not all types of series supported incremental rendering when using appendData. Only these types of series support it: e_scatter and e_line of pure echarts, and e_scatter_3d, and e_line_3d of echarts-gl.

Examples

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
## Not run: 
  library(shiny)
  
  ui <- fluidPage(
    actionButton("add", "Add Data to y"),
    echarts4rOutput("plot"),
    h4("Brush"),
    verbatimTextOutput("selected"),
    h4("Legend select change"),
    verbatimTextOutput("legend")
  )
  
  server <- function(input, output, session){
  
    data <- data.frame(x = rnorm(10, 5, 3), y = rnorm(10, 50, 12), z = rnorm(10, 5, 20))
    
    react <- eventReactive(input$add, {
      set.seed(sample(1:1000, 1))
      data.frame(x = rnorm(10, 5, 2), y = rnorm(10, 50, 10), z = rnorm(10, 5, 20))
    })
    
    output$plot <- renderEcharts4r({
      data %>% 
       e_charts(x) %>% 
       e_scatter(y, z, scale = NULL) %>%
       e_scatter(z) %>% 
       e_brush()
    })
    
    observeEvent(input$add, {
      echarts4rProxy("plot") %>% 
        e_append2_p(0, react(), x, y, z)
    })
    
    output$selected <- renderPrint({
      input$plot_brush
    })
    
    output$legend <- renderPrint({
      input$plot_legend_change
    })
    
  }
  
  shinyApp(ui, server)
  

## End(Not run)

JohnCoene/echarts4r documentation built on Sept. 18, 2019, 2:24 a.m.