Description Usage Arguments Value Examples
Add Shiny Events
1 |
sunburst |
|
sunburst
htmlwidget
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 | ## Not run:
library(shiny)
library(sunburstR)
sequences <- read.csv(
system.file("examples/visit-sequences.csv",package="sunburstR")
,header=F
,stringsAsFactors = FALSE
)
server <- function(input,output,session){
output$sunburst <- renderSunburst({
#invalidateLater(1000, session)
sequences <- sequences[sample(nrow(sequences),1000),]
add_shiny(sunburst(sequences))
})
selection <- reactive({
input$sunburst_mouseover
})
output$selection <- renderText(selection())
}
ui<-fluidPage(
sidebarLayout(
sidebarPanel(
),
# plot sunburst
mainPanel(
sunburstOutput("sunburst"),
textOutput("selection")
)
)
)
shinyApp(ui = ui, server = server)
## End(Not run)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.