Remaking Carson Sievert's updating a reactive plotly chart example

reactive plotly.rmd

---
title: "dash"
output: flexdashboard::flex_dashboard
runtime: shiny
---
  
  
```{r setup, include=FALSE}

library(tidyverse)
library(plotly)

# data sets
three_samples <- tibble(first_set = rnorm(3), 
                        second_set = rnorm(3), 
                        third_set = rnorm(3))

```





  
SideBar {.sidebar}
---

```{r}

radioButtons("radio", "set seed", choices = c("first_set" , 
                                              "second_set", 
                                              "third_set"), 
             selected = "first_set")

```

Column
-----------------------------------------------------------------------

### Chart A

```{r}

# the slow way...

plotly_object <- reactive(
  plot_ly(x = c("a", "b", "c"),
          y = three_samples %>% pull(input$radio)
  ) %>% 
    layout(yaxis = list(range = c(-4, 4)))
)


renderPlotly(
  plotly_object()
)



# the fast way... apparently using...

# new_plotly_object <- plotlyProxy(plotly_object) %>% 
#   plotlyProxyInvoke("restyle", "y", data_for_plot())

```