Skip to content

Commit

Permalink
proposed fix
Browse files Browse the repository at this point in the history
  • Loading branch information
KristinaMiljkovic committed Sep 15, 2024
1 parent 7c5c9a7 commit 0a1d165
Showing 1 changed file with 4 additions and 2 deletions.
6 changes: 4 additions & 2 deletions R/diffnet-methods.r
Original file line number Diff line number Diff line change
Expand Up @@ -656,7 656,7 @@ plot_diffnet.default <- function(
#' @return Invisible. A data frame with the calculated coordinates, including:
#' `toa`, `threshold`, and `jit` (a jittered version of `toa`).
#' @author George G. Vega Yon
plot_threshold <- function(graph, expo, ...) UseMethod("plot_threshold")
plot_threshold <- function(graph, expo, vertex.label,...) UseMethod("plot_threshold")

#' @export
#' @rdname plot_threshold
Expand All @@ -679,7 679,9 @@ plot_threshold.diffnet <- function(graph, expo, ...) {
args$toa <- graph$toa
}

do.call(plot_threshold.default, c(list(graph = graph$graph, expo=expo), args))
args$vertex.label <- nodes(graph)
do.call(plot_threshold.default,
c(list(graph = graph$graph, expo=expo), args))
}

#' @export
Expand Down

0 comments on commit 0a1d165

Please sign in to comment.