Add Shiny to d2b about sunburstr

[stefanavey]

yes, please! This is exactly what I need. I'm using a Shiny app where I want to use the Sunburst created by sund2b() as a way to select nodes and then get that value back in R. I know I can do this with add_shiny() on sunburst() plots. Is there any workaround for sund2b() currently?

[timelyportfolio]

I'll circle back to this over the next couple of days. Thanks @stefanavey for the nudge.

[stefanavey]

Tested the example below with code on master branch (0c6274a). Works great for this example!

---
output:
  flexdashboard::flex_dashboard
runtime: shiny
---

### Sunburst

```{r}

library(shiny)
library(flexdashboard)
library(sunburstR)

sequences <- read.csv(
    system.file("examples/visit-sequences.csv",
                package="sunburstR"),
    header = FALSE, stringsAsFactors = FALSE)

sund2bOutput("sb")

output$sb <- renderSund2b({
    sequences <- sequences[sample(nrow(sequences),100),]
    add_shiny(sund2b(sequences))
})


```

### Selection

```{r}

selection <- reactive({
    input$sb_click
})

renderText({selection()})

```

I see you added an event for click_center. How would it work to get the current "parent" of the hierarchy when users click on the center?