Skip to content

Commit

Permalink
fixed generic inconsistencies
Browse files Browse the repository at this point in the history
  • Loading branch information
schochastics committed Feb 23, 2023
1 parent 2b456e6 commit 17afdfa
Show file tree
Hide file tree
Showing 2 changed files with 6 additions and 6 deletions.
6 changes: 3 additions & 3 deletions R/edgelist.R
Original file line number Diff line number Diff line change
Expand Up @@ -25,13 +25,13 @@ convert_edgelist <- function(x, ...) {

#' @rdname convert_edgelist
#' @export
convert_edgelist.default <- function(x){
convert_edgelist.default <- function(x, ...){
stop(paste("don't know how to convert an object of type",class(x),"to a rang edgelist"), call. = FALSE)
}

#' @rdname convert_edgelist
#' @export
convert_edgelist.ranglet <- function(x){
convert_edgelist.ranglet <- function(x, ...){
output <- data.frame(from = x$pkgref, to = .extract_queryable_dependencies(x$original, x$no_enhances, x$no_suggests))
for (dep in x$deps) {
if (!.is_terminal_node(dep, x$no_enhances)) {
Expand All @@ -44,7 +44,7 @@ convert_edgelist.ranglet <- function(x){

#' @rdname convert_edgelist
#' @export
convert_edgelist.rang <- function(x){
convert_edgelist.rang <- function(x, ...){
el <- do.call("rbind",lapply(x$ranglets,convert_edgelist))
rownames(el) <- NULL
el
Expand Down
6 changes: 3 additions & 3 deletions man/convert_edgelist.Rd

Some generated files are not rendered by default. Learn more about how customized files appear on GitHub.

0 comments on commit 17afdfa

Please sign in to comment.