Proxies to highlight and downplay series.

e_highlight_p(proxy, series.index = NULL, series.name = NULL)

e_downplay_p(proxy, series.index = NULL, series.name = NULL)

Arguments

proxy

An echarts4r proxy as returned by echarts4rProxy.

series.index

Series index, can be a vector.

series.name

Series Name, can be vector.

Examples

# NOT RUN {
 ui <- fluidPage(
   fluidRow(
     column(
       3,
       actionButton("highlightmpg", "Highlight MPG")
     ),
     column(
       3,
       actionButton("highlighthp", "Highlight HP")
     ),
     column(
       3,
       actionButton("downplaympg", "Downplay MPG")
     ),
     column(
       3,
       actionButton("downplayhp", "Downplay HP")
     )
   ),
   echarts4rOutput("plot")
 )

 server <- function(input, output, session){
   output$plot <- renderEcharts4r({
     mtcars %>%
       e_charts(mpg) %>%
       e_line(disp) %>%
       e_line(hp, name = "HP") # explicitly pass name
   })

   # highlight

   observeEvent(input$highlightmpg, {
     echarts4rProxy("plot") %>%
       e_highlight_p(series.index = 0) # using index
   })

   observeEvent(input$highlighthp, {
     echarts4rProxy("plot") %>%
       e_highlight_p(series.name = "HP") # using name
   })

   # downplay

   observeEvent(input$downplaympg, {
     echarts4rProxy("plot") %>%
       e_downplay_p(series.name = "disp")
   })

   observeEvent(input$downplayhp, {
     echarts4rProxy("plot") %>%
       e_downplay_p(series.index = 1)
   })
 }

 shinyApp(ui, server)

# }