Update network_functions.R

fixed the parsing error
noriakis · Sep 25, 2023 · b3b0840 · b3b0840
1 parent 5cb8bec
commit b3b0840
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/network_functions.R b/R/network_functions.R
@@ -164,7 +164,7 @@ network_graph <- function (kne, type="definition") {
                 paste0(vs[,1],"_",nn,"_",kne@ID) ,vs[,1])
             vs <- do.call(rbind, lapply(vs[,1], function(j) {
                 c(j,bln,"in_block")
-            }))
+            })) |> data.frame() |> `colnames<-`(c("from","to","type"))
             list(rbind(es, vs), nn)
         }
     })