pass up args ggnetwork_plot_full

.Rhistory

@@ -1,7 +1,3 @@
-#     xend = "xend", yend = "yend"
-#   )) +
-#   ggdendro::theme_dendro()
-# b1 <- ggplot(ggdendro::segment(ddata)) +
 #   ggplot2::geom_segment(ggplot2::aes(
 #     x = x, y = y,
 #     xend = xend, yend = yend
@@ -510,3 +506,7 @@ patchwork::wrap_plots(ggbars ,
 ggdend + ggplot2::scale_y_reverse(),
 ncol = 1, heights = c(1,.3))
 color_dict
+devtools::check_man()
+library(MultiEWCE)
+res <- ggnetwork_plot_full(cell_type = "Microglia")
+library(MultiEWCE)

DESCRIPTION

@@ -25,7 +25,7 @@ Encoding: UTF-8
 URL: https://github.com/neurogenomics/MultiEWCE
 BugReports: https://github.com/neurogenomics/MultiEWCE/issues
 Roxygen: list(markdown = TRUE)
-RoxygenNote: 7.3.0
+RoxygenNote: 7.3.1
 Depends: 
     R (>= 4.1)
 Imports:

R/ggnetwork_plot_full.R

@@ -20,6 +20,7 @@
 #' @inheritParams HPOExplorer::make_network_plot
 #' @inheritParams HPOExplorer::filter_descendants
 #' @inheritParams HPOExplorer::make_network_object
+#' @inheritDotParams HPOExplorer::make_network_plot
 #' @returns A named list of outputs,
 #'  including a interactive network plot of the selected subset
 #' of results from RD EWCE analysis.
@@ -40,6 +41,8 @@ ggnetwork_plot_full <- function(cell_type,
                                 size_var = "ontLvl_relative",
                                 add_ont_lvl_absolute = TRUE,
                                 add_ont_lvl_relative = TRUE,
+                                method = c("ggnetwork","visnetwork"),
+                                interactive = TRUE,
                                 verbose = TRUE,
                                 ...){
   messager("ggnetwork_plot_full",v=verbose)
@@ -83,10 +86,11 @@ ggnetwork_plot_full <- function(cell_type,
   }
   #### Make plot ####
   out <- HPOExplorer::make_network_plot(phenos = phenos,
-                                                 colour_var = colour_var,
-                                                 size_var = size_var,
-                                                 interactive = interactive,
-                                                 ...)
+                                        colour_var = colour_var,
+                                        size_var = size_var,
+                                        interactive = interactive,
+                                        method = method,
+                                        ...)
   #### Return ####
   return(out)
 }