proxies: echarts Shiny proxies

In JohnCoene/echarts: EChart htmlwidget

Description

Shiny proxies for echarts.

Usage

eget_options_p(proxy)

edata_p(proxy, index, data, head = FALSE, grow = FALSE)

etheme_p(proxy, theme)

emark_point_p(proxy, index, data = list(), clickable = TRUE,
  symbol = "pin", symbol.size = 10, symbol.rotate = NULL, large = FALSE,
  effect = NULL)

Arguments

proxy	as returned by echartsProxy
theme	as passed in etheme.

Examples

## Not run: 
library(shiny)

ui <- fluidPage(
  titlePanel("echarts Proxies"),
  fluidRow(
    column(
      3,
      actionButton("getOptions", "get options")
    ),
    column(
      3,
      selectInput(
        "theme",
        "change theme",
        choices =
          c(
            "default",
            "red",
            "mint",
            "macarons",
            "macarons2",
            "green",
            "blue",
            "dark",
            "gray",
            "helianthus",
            "wef",
            "roma",
            "sakura",
            "shine",
            "infographic",
            "solarlight"
         )
      )
    ),
    column(
      3,
      actionButton("addData", "add data")
    ),
    column(
      3,
      numericInput(
        "markPoint",
        "Mark point",
        10
      )
    )
  ),
  fluidRow(
    echartsOutput("chart")
  )
)

server <- function(input, output){
  df <- data.frame(x = 1:50, y = runif(50, 5, 10), z = runif(50, 7, 12), w = runif(50, 10, 13))

  output$chart <- renderEcharts(
    df %>%
      echart(x) %>%
      earea(y, name = "Metric", stack = "grp1") %>%
      eline(w, name = "Variable", stack = "grp2") %>%
      eline(z, name = "Var", stack = "grp3") %>%
      etitle("echarts", "and its Shiny proxies")
  )

  reactive_1 <- eventReactive(input$addData, {
    runif(1, 5, 13)
  })

  reactive_2 <- eventReactive(input$addData, {
    runif(1, 5, 13)
  })

  reactive_3 <- eventReactive(input$addData, {
    runif(1, 5, 13)
  })

  observeEvent(input$getOptions, {
    echartsProxy("chart") %>%
      egetoptions_p()
  })

  observeEvent(input$theme, {
    echartsProxy("chart") %>%
      etheme_p(input$theme)
  })

  observeEvent(input$addData, {
    echartsProxy("chart") %>%
      edata_p(index = 0, reactive_1()) %>%
      edata_p(index = 1, reactive_2()) %>%
      edata_p(index = 2, reactive_3())
  })

  observeEvent(input$markPoint, {
    data = list(
      name = "point",
      value = input$markPoint,
      x = 20,
      y = 10
    )
  })
}

shinyApp(ui, server)

## End(Not run)

JohnCoene/echarts documentation built on May 22, 2021, 6:18 p.m.