diff --git a/bip.RData b/bip.RData
new file mode 100644
index 0000000..1c52910
Binary files /dev/null and b/bip.RData differ
diff --git a/shiny_uNetwork.R b/shiny_uNetwork.R
index ea14ad1..5cadbb2 100644
--- a/shiny_uNetwork.R
+++ b/shiny_uNetwork.R
@@ -350,7 +350,7 @@ server <- function(input, output, session) {
   
   output$download_plot  <- downloadHandler(
       
-      filename = "fbf_bipartite_plot.pdf",
+      filename = "unetwork_plot.pdf",
       content = function(file) {
             ggsave(file, height = input$plot_height_cm, width = input$plot_width_cm, units = "cm")
       }