comparison kegg_maps_visualization.R @ 3:dfceadc0b703 draft

planemo upload commit 4ba1ebe7b3f5e3fabf78b5fed7ed0b92e2cbf9e5-dirty

2:6ca99419207d

  string <- gsub("X","",string)
  return(string)
}

get_list_from_cp <-function(list){
  list = gsub(",","\t",list)
  list = strsplit(list, "[ \t\n]+")[[1]]
  list = list[list != ""]    #remove empty entry
  list = gsub("-.+", "", list)  #Remove isoform accession number (e.g. "-2")
  return(list)

3:dfceadc0b703

  string <- gsub("X","",string)
  return(string)
}

get_list_from_cp <-function(list){
  list = gsub(";","\t",list)
  list = gsub(",","\t",list)
  list = strsplit(list, "[ \t\n]+")[[1]]
  list = list[list != ""]    #remove empty entry
  list = gsub("-.+", "", list)  #Remove isoform accession number (e.g. "-2")
  return(list)