Archive/NIMBioS.code/shinyparameters.old/shiny_parameters_reactiveValues/serverplots.R

In christianparobek/skeleSim: Genetic Simulation Engine

output$networkPlot <- renderPlot({
    mat <- as.matrix(inmat())
    if (sum(is.na(mat))==0)
        if ((max(mat)==min(mat))&(min(mat)==0))
            {
                NULL #dont plot
            } else {
                grph <-graph.adjacency(t(mat),weighted=T)
                if (input$migModel%in%c("twoD","twoDwDiagonal","distance"))
                    {
                        colfact=1.2
                        rowfact=1.2
                        layout=matrix(0,ncol=2,nrow=dim(mat)[1])
                        lycnt <- 1
                        for (col in 1:input$cols)
                            for (row in 1:input$rows)
                                {
                                    layout[lycnt,] <- c(colfact * col,rowfact * row)
                                    lycnt <- lycnt+1
                                }
                    } else {
                        layout=NULL
                    }
                plot(grph,
                     edge.label=round(E(grph)$weight, 2),
                     edge.curved=T, layout=layout)
            }
})