shiny_igraph_metrics

     output$metrics <- renderTable ({ 
       inFile <- input$file1
       
       if (is.null(inFile))
         return(NULL)
       
       df <- read.csv(inFile$datapath, header =TRUE)[ ,c(input$aend,input$zend,input$linklab)]
       net <- graph_from_data_frame(d=df, vertices=NULL, directed=T)
       
       data.frame(
       deg=degree(net),
       bet=betweenness(net),
       clo=closeness(net),
       eig=evcent(net)$vector,
       tra=transitivity(net,type=c("local"))
     )
       })