getter functions

noriakis · Nov 8, 2023 · ef93536 · ef93536
1 parent b6d8fb5
commit ef93536
Show file tree

Hide file tree

Showing 2 changed files with 12 additions and 0 deletions.
diff --git a/R/module_functions.R b/R/module_functions.R
@@ -28,6 +28,12 @@ setMethod("show",
     }
 )
 
+setGeneric("get_module_attribute",
+    function(x, ...) standardGeneric("get_module_attribute"))
+
+setMethod("get_module_attribute", "kegg_module",
+    function(x, attribute) attr(x, attribute))
+
 #' module
 #' KEGG module parsing function
 #' @param mid KEGG module ID

diff --git a/R/network_functions.R b/R/network_functions.R
@@ -22,6 +22,12 @@ setMethod("show",
     }
 )
 
+setGeneric("get_network_attribute",
+    function(x, ...) standardGeneric("get_network_attribute"))
+
+setMethod("get_network_attribute", "kegg_network",
+    function(x, attribute) attr(x, attribute))
+
 #' KEGG network parsing function
 #' 
 #' parsing the network elements starting with N