nredell / chordviz Goto Github PK

devtools::install_github("nredell/chordViz")
library(chordViz)
library(htmlwidgets)

#output
renderChorViz <- function (expr, env = parent.frame(), quoted = FALSE){
  if (!quoted) {expr <- substitute(expr)}
  shinyRenderWidget(expr, chordVizOutput, env, quoted = TRUE)
}
 
# #input
chordVizOutput <- function (outputId, width = "100%", height = "400px"){
  shinyWidgetOutput(outputId, "chordViz", width, height,
                    package = "chordViz")
}

ui <-   fluidPage(
  actionButton("NewGraph", "New Graph"),
  chordVizOutput("chord")
)

server <- function(input, output) {
  output$chord <- renderChorViz({  
    chordViz(m(), start = 3/2, groupNames = LETTERS[1:ncol(m())])
  })
  
  m <- reactive({
    input$NewGraph
    matrix(trunc(runif(100, 1, 20)), nrow = 10)
  })
  
}
  
shinyApp(ui, server)

while (document.getElementById(el.id).hasChildNodes()) {
    document.getElementById(el.id).removeChild(document.getElementById(el.id).lastChild);
}