passing data selected from on click about sunburstr

[timelyportfolio]

So happy you are using. I have decided this year to only do paid open-source and bugfix/maintenance on CRAN submitted packages http://www.buildingwidgets.com/blog/2016/12/9/bhkisodyhvttcub1mvz10fc5ow2no2. I hope someone else will jump in to help out.

[Atrebas]

I guess something like this could do the trick.
Not fully polished, but seems to work.

library(shiny)
library(sunburstR)
library(data.table)

## Random data
N = 1e3
DT = data.table(id = 1:N,
                G1 = sample(LETTERS[1:4], N, replace = TRUE),
                G2 = sample(LETTERS[1:4], N, replace = TRUE),
                G3 = sample(LETTERS[1:4], N, replace = TRUE))

DT[, seq := paste(unlist(.SD), collapse = "-"), 
   by = id, .SDcols = c("G1", "G2", "G3")]

sequences = DT[, .N, by = seq]


## ui
ui <- fluidPage(
  sidebarLayout(
    sidebarPanel(downloadButton("dl", label = "Download")),
    mainPanel(
      sunburstOutput("sunburst"),
      tableOutput("selection")
    )
  )
)

## server
server <- function(input,output,session){
  
  output$sunburst <- renderSunburst({
    add_shiny(sunburst(sequences))
  })
  
  selection <- reactive({
    input$sunburst_click
  })
  
  DTsub <- reactive({
    DTsub = DT[paste(selection(), collapse = "-"), on = "seq", nomatch = 0]
    validate(need(nrow(DTsub) > 0, "No match found."))
    DTsub
  }) 
  
  output$selection <- renderTable(
    DTsub()
  )
  
  output$dl <- downloadHandler(
    filename = function() {"data.csv"},
    content = function(file) {
      write.csv(DTsub(), file)
    }
  )
}

shinyApp(ui = ui, server = server)