bhachauk

     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(

bhachauk

                 tags$head(
                   tags$style('
        body{background-color: #DAE3F9 !important}
        .nodetext{fill: #000000}
        .legend text{fill: #FF0000}
      ')
                 )

bhachauk

    String getreponame(String url)
    {
        String gitname = ("basename $url").execute().getText().trim()
        return gitname.take(gitname.lastIndexOf('.'))
    }