@@ -89,9 +89,9 @@ network_class <- R6::R6Class(
8989 }
9090 vertices <- self $ vertices
9191 edges <- self $ edges
92- vertices <- vertices [vertices $ name %in% self $ names , , drop = FALSE ] # nolint
93- edges <- edges [edges $ from %in% self $ names , , drop = FALSE ] # nolint
94- edges <- edges [edges $ to %in% self $ names , , drop = FALSE ] # nolint
92+ vertices <- vertices [vertices $ name %in% self $ names , , drop = FALSE ]
93+ edges <- edges [edges $ from %in% self $ names , , drop = FALSE ]
94+ edges <- edges [edges $ to %in% self $ names , , drop = FALSE ]
9595 self $ vertices <- vertices
9696 self $ edges <- edges
9797 },
@@ -102,9 +102,9 @@ network_class <- R6::R6Class(
102102 return ()
103103 }
104104 edges <- self $ edges
105- vertices <- vertices [vertices $ name %in% allow , , drop = FALSE ] # nolint
106- edges <- edges [edges $ from %in% allow , , drop = FALSE ] # nolint
107- edges <- edges [edges $ to %in% allow , , drop = FALSE ] # nolint
105+ vertices <- vertices [vertices $ name %in% allow , , drop = FALSE ]
106+ edges <- edges [edges $ from %in% allow , , drop = FALSE ]
107+ edges <- edges [edges $ to %in% allow , , drop = FALSE ]
108108 self $ vertices <- vertices
109109 self $ edges <- edges
110110 },
@@ -115,9 +115,9 @@ network_class <- R6::R6Class(
115115 return ()
116116 }
117117 edges <- self $ edges
118- vertices <- vertices [! (vertices $ name %in% exclude ), , drop = FALSE ] # nolint
119- edges <- edges [! (edges $ from %in% exclude ), , drop = FALSE ] # nolint
120- edges <- edges [! (edges $ to %in% exclude ), , drop = FALSE ] # nolint
118+ vertices <- vertices [! (vertices $ name %in% exclude ), , drop = FALSE ]
119+ edges <- edges [! (edges $ from %in% exclude ), , drop = FALSE ]
120+ edges <- edges [! (edges $ to %in% exclude ), , drop = FALSE ]
121121 self $ vertices <- vertices
122122 self $ edges <- edges
123123 },
@@ -128,12 +128,12 @@ network_class <- R6::R6Class(
128128 }
129129 self $ update_targets()
130130 vertices <- rbind(self $ vertices_targets , self $ vertices_imports )
131- vertices <- vertices [! duplicated(vertices $ name ), , drop = FALSE ] # nolint
132- vertices <- vertices [order(vertices $ name ), , drop = FALSE ] # nolint
131+ vertices <- vertices [! duplicated(vertices $ name ), , drop = FALSE ]
132+ vertices <- vertices [order(vertices $ name ), , drop = FALSE ]
133133 edges <- rbind(self $ edges_imports , self $ edges_targets )
134- edges <- edges [edges $ from %in% vertices $ name , , drop = FALSE ] # nolint
135- edges <- edges [edges $ to %in% vertices $ name , , drop = FALSE ] # nolint
136- edges <- edges [order(edges $ from ), , drop = FALSE ] # nolint
134+ edges <- edges [edges $ from %in% vertices $ name , , drop = FALSE ]
135+ edges <- edges [edges $ to %in% vertices $ name , , drop = FALSE ]
136+ edges <- edges [order(edges $ from ), , drop = FALSE ]
137137 self $ vertices <- vertices
138138 self $ edges <- edges
139139 self $ shortcut_vertices()
0 commit comments