Focus or unfocus on node adjacency.

e_focus_adjacency_p(proxy, index, ...)

e_unfocus_adjacency_p(proxy, ...)

Arguments

proxy

An echarts4r proxy as returned by echarts4rProxy.

index

Index of node to focus on.

...

Any other options, see official documentation and details.

Details

Must pass seriesId, seriesIndex, or seriesName, generally seriesIndex = 0 will work.

Examples

value <- rnorm(10, 10, 2) nodes <- data.frame( name = sample(LETTERS, 10), value = value, size = value, grp = rep(c("grp1", "grp2"), 5), stringsAsFactors = FALSE ) edges <- data.frame( source = sample(nodes$name, 20, replace = TRUE), target = sample(nodes$name, 20, replace = TRUE), stringsAsFactors = FALSE )
# NOT RUN { library(shiny) ui <- fluidPage( fluidRow( column( 2, numericInput("index", "Node", value = 3, min = 1, max = 9) ), column( 2, br(), actionButton("focus", "Focus") ), column( 2, br(), actionButton("unfocus", "Unfocus") ) ), fluidRow( column(12, echarts4rOutput("graph")) ) ) server <- function(input, output, session){ output$graph <- renderEcharts4r({ e_charts() %>% e_graph() %>% e_graph_nodes(nodes, name, value, size, grp) %>% e_graph_edges(edges, source, target) }) observeEvent(input$focus, { echarts4rProxy("graph") %>% e_focus_adjacency( seriesIndex = 0, index = input$index ) }) observeEvent(input$unfocus, { echarts4rProxy("graph") %>% e_unfocus_adjacency(seriesIndex = 0) }) } shinyApp(ui, server) # }