For https://community.rstudio.com/t/updating-a-plotly-chart-in-shiny-using-flexdashboard/27176

proxy-dashboard.Rmd

---
title: "dash"
output: flexdashboard::flex_dashboard
runtime: shiny_prerendered
---
  
  
```{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}
plotlyOutput("p")
```

```{r, context="server"}
output$p <- renderPlotly(
  plot_ly(x = c("a", "b", "c"), y = three_samples$first_set) %>%
    layout(yaxis = list(range = c(-4, 4)))
)
```

```{r, context="server"}
observeEvent(input$radio, {
  y <- three_samples[[input$radio]]
  plotlyProxy("p", session) %>%
    plotlyProxyInvoke("restyle", "y", list(y))
})
```