@@ -147,6 +147,7 @@ importFrom(utils,read.delim)

 importFrom(utils,sessionInfo)

 importFrom(viridis,viridis)

 importFrom(visNetwork,renderVisNetwork)

+importFrom(visNetwork,visExport)

 importFrom(visNetwork,visIgraph)

 importFrom(visNetwork,visNetworkOutput)

 importFrom(visNetwork,visOptions)

@@ -46,7 +46,8 @@

 #' @importFrom tidyr separate_rows pivot_longer

 #' @importFrom tools file_ext file_path_sans_ext

 #' @importFrom utils read.delim sessionInfo browseURL citation data

-#' @importFrom visNetwork renderVisNetwork visIgraph visNetworkOutput visOptions

+#' @importFrom visNetwork renderVisNetwork visExport visIgraph visNetworkOutput 

+#' visOptions

 #' @importFrom viridis viridis

 #'

 #' @name GeneTonic-pkg

@@ -781,7 +781,10 @@ GeneTonic <- function(dds,

         visOptions(highlightNearest = list(enabled = TRUE,

                                            degree = 1,

                                            hover = TRUE),

-                   nodesIdSelection = TRUE)

+                   nodesIdSelection = TRUE) %>% 

+        visExport(name = "ggs_network", 

+                  type = "png",

+                  label = "Save ggs graph")

     })

@@ -928,7 +931,10 @@ GeneTonic <- function(dds,

         visOptions(highlightNearest = list(enabled = TRUE,

                                            degree = 1,

                                            hover = TRUE),

-                   nodesIdSelection = TRUE)

+                   nodesIdSelection = TRUE) %>% 

+        visExport(name = "emap_network", 

+                  type = "png",

+                  label = "Save enrichment map")

     })