GML файл может быть показан в блестящем

Question

Это мой вопрос: я пытаюсь загрузить gml в блестящий файл, но когда он должен быть полностью загружен, я не вижу сюжет. Вот мой код:

library(shiny)    
library(igraph)

      ui <- fluidPage(
    fileInput("file1", "Choose gml File",
                    multiple = TRUE,
                    accept = c("",
                               "",
                               ".gml")),      
          tags$hr(),    
          mainPanel(
            plotOutput("contents")
          )    
      )

    server <- function(input, output) {  
      output$contents <- renderPlot({ 

        req(input$file1) 

        grafo <- read.graph(input$file1$datapath,
                         format=c("gml"))   

      })  
    }

    shinyApp(ui, server)

Большое спасибо заранее