Variable name

Author: davetang

R/get_inheritance.R

@@ -11,7 +11,7 @@
 #' @examples
 #' get_inheritance(get_omim(303600, geneMap=TRUE))
 
-get_inheritance <- function(xml){
+get_inheritance <- function(my_xml){
   my_inheritance_node <- getNodeSet(my_xml, path = "/omim/entryList/entry/phenotypeMapList/phenotypeMap/phenotypeInheritance")
   xmlSApply(my_inheritance_node, xmlValue)
 }

R/get_pheno_key.R

@@ -9,7 +9,7 @@
 #' @examples
 #' get_pheno_key(get_omim(303600, geneMap=TRUE))
 
-get_pheno_key <- function(xml){
+get_pheno_key <- function(my_xml){
   my_pheno_node <- getNodeSet(my_xml, path = "/omim/entryList/entry/phenotypeMapList/phenotypeMap/phenotypeMappingKey")
   xmlSApply(my_pheno_node, xmlValue)
 }

R/get_title.R

@@ -9,7 +9,7 @@
 #' @examples
 #' get_title(get_omim(100200))
 
-get_title <- function(xml){
+get_title <- function(my_xml){
   my_preferred_title_node <- getNodeSet(my_xml, path = "/omim/entryList/entry/titles/preferredTitle")
   xmlSApply(my_preferred_title_node, xmlValue)
 }