错误：不是R闪亮的图形对象

Question

当我试图从输入文件中找到每个顶点的度数时，有没有人如何修复此错误？ Here's我要导入的Pajek文件并将该程度导出为CSV。

当我尝试使用较小的输入文件时。 renderTable工作但当我尝试使用我的文件（在链接中）时，它以某种方式不断显示错误消息并且不显示在选项卡集上。

这是我到目前为止所做的事情：

ui.R

shinyUI(fluidPage(
  titlePanel("Finding most influential vertex in a network"),

  sidebarLayout(
    sidebarPanel(

      fileInput("graph", label = h4("Pajek file")),

      downloadButton('downloadData', 'Download')

    ),
    mainPanel( tabsetPanel(type = "tabs", 
                           tabPanel("Table", tableOutput("view")) 

                           ) 

               )                        
  )
))

server.R

library(igraph)
options(shiny.maxRequestSize=-1) 

shinyServer(
  function(input, output) {

    filedata <- reactive({
      inFile = input$graph
      if (!is.null(inFile))
      read.graph(file=inFile$datapath, format="pajek")

    })

    Data <- reactive({

      df <- filedata()
      vorder <-order(degree(df), decreasing=TRUE)
      DF <- data.frame(ID=as.numeric(V(df)[vorder]), degree=degree(df)[vorder])

    })
    output$view <- renderTable({

      Data()

    })

    output$downloadData <- downloadHandler(

      filename = function() {
        paste("degree", '.csv', sep='')
      },


      content = function(file) {

      write.csv(Data(), file)
      } 

    )


    })

另外，我也不确定如何从我输出的数据帧写入csv文件。