diff id_converter_UniProt.R @ 0:02c549457875 draft default tip

planemo upload

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/id_converter_UniProt.R	Fri Sep 15 06:02:03 2017 -0400
@@ -0,0 +1,115 @@
+# Read file and return file content as data.frame
+readfile = function(filename, header) {
+  if (header == "true") {
+    # Read only first line of the file as header:
+    headers <- read.table(filename, nrows = 1, header = FALSE, sep = "\t", stringsAsFactors = FALSE, fill = TRUE)
+    #Read the data of the files (skipping the first row)
+    file <- read.table(filename, skip = 1, header = FALSE, sep = "\t", stringsAsFactors = FALSE, fill = TRUE)
+    #And assign the header to the data
+    names(file) <- headers
+  }
+  else {
+    file <- read.table(filename, header = FALSE, sep = "\t", stringsAsFactors = FALSE, fill = TRUE)
+  }
+  return(file)
+}
+
+# Mapping IDs using file built from Uniprot file source (ftp://ftp.uniprot.org/pub/databases/uniprot/current_release/knowledgebase/taxonomic_divisions/uniprot_sprot_human.dat.gz) 
+# Available databases: 
+#   UNIPROT_AC: Uniprot accession number (e.g. P31946)
+#   UNIPROT_ID: Uniprot identifiers (e.g 1433B_HUMAN)
+#   GeneID_EntrezGene: Entrez gene ID (serie of digit) (e.g. 7529)
+#   RefSeq: RefSeq (NCBI) protein (e.g.  NP_003395.1; NP_647539.1; XP_016883528.1)
+#   GI_number: GI (NCBI GI number) ID (serie of digits) assigned to each sequence record processed by NCBI (e.g; 21328448; 377656701; 67464627; 78101741) 
+#   PDB: Protein DataBank Identifiers (e.g. 2BR9:A; 3UAL:A;   3UBW:A) 
+#   GO_ID: GOterms (Gene Ontology) Identifiers (e.g. GO:0070062; GO:0005925; GO:0042470; GO:0016020; GO:0005739; GO:0005634)
+#   PIR: Protein Information Resource ID (e.g. S34755)	
+#   OMIM: OMIM (Online Mendelian Inheritance in Man database) ID (serie of digits) (e.g: 601289)	
+#   UniGene: Unigene Identifier (e.g. Hs.643544)
+#   Ensembl_ENSG: Ensembl gene identifiers (e.g. ENSG00000166913) 
+#   Ensembl_ENST: Ensembl transcript identifiers (e.g. ENST00000353703; ENST00000372839)
+#   Ensembl_ENSP: Ensembl protein identifiers (e.g. ENSP00000300161; ENSP00000361930)
+
+mapping = function() {
+  # Extract arguments
+  args = commandArgs(trailingOnly = TRUE)
+  #print(args)
+  if (length(args) != 7) {
+    stop("Not enough/Too many arguments", call. = FALSE)
+  }
+  else {
+    input_id_type = args[1]
+    list_id = args[2]
+    list_id_input_type = args[3]
+    options = strsplit(args[4], ",")[[1]]
+    output = args[5]
+    uniprot_map_file = args[6]
+    np_uniprot_file = args[7]
+    
+    # Extract ID maps
+    uniprot_map = read.table(uniprot_map_file, header = TRUE, sep = "\t", stringsAsFactors = FALSE, fill = TRUE)
+    np_uniprot = read.table(np_uniprot_file, header = TRUE, sep = "\t", stringsAsFactors = FALSE, fill = TRUE)
+    
+    # Extract input IDs
+    if (list_id_input_type == "list") {
+      list_id = strsplit(args[2], " ")[[1]]
+    }
+    else if (list_id_input_type == "file") {
+      filename = as.character(strsplit(list_id, ",")[[1]][1])
+      column_number = as.numeric(gsub("c", "" ,strsplit(list_id, ",")[[1]][2]))
+      header = strsplit(list_id, ",")[[1]][3]
+      file_all = readfile(filename, header)
+      list_id = c()
+      list_id = sapply(strsplit(file_all[,column_number], ";"), "[", 1)
+    }
+    names = c()
+    
+    # Map IDs
+    res = matrix(nrow=length(list_id), ncol=0)
+    
+    for (opt in options) {
+      names = c(names, opt)
+      # Map to neXtProt ID
+      if (opt == "neXtProt_ID") {
+        if (input_id_type == "UNIPROT_AC") {
+          mapped = sapply(strsplit(np_uniprot[match(list_id, np_uniprot$Uniprot_AC),]$neXtProt_ID, ";"), "[", 1)
+        }
+        else if (input_id_type == "neXtProt_ID") {
+          mapped = matrix(list_id)
+        }
+        else {
+          uniprot = sapply(strsplit(uniprot_map[match(list_id, uniprot_map[input_id_type][,]),]$UNIPROT_AC, ";"), "[", 1)
+          mapped = sapply(strsplit(np_uniprot[match(uniprot, np_uniprot$Uniprot_AC),]$neXtProt_ID, ";"), "[", 1)
+        }
+      }
+      # Map to other ID types
+      else {
+        if (input_id_type == "neXtProt_ID") {
+          uniprot = sapply(strsplit(np_uniprot[match(list_id, np_uniprot$neXtProt_ID),]$Uniprot_AC, ";"), "[", 1)
+          mapped = sapply(strsplit(uniprot_map[match(uniprot, uniprot_map$UNIPROT_AC),][opt][,], ";"), "[", 1)
+        }
+        else {
+          mapped = sapply(strsplit(uniprot_map[match(list_id, uniprot_map[input_id_type][,]),][opt][,], ";"), "[", 1)
+        }
+      }
+      res = cbind(res, matrix(mapped))
+    }
+    
+    # Write output
+    if (list_id_input_type == "list") {
+      res = cbind(as.matrix(list_id), res)
+      names = c(input_id_type, names)
+      colnames(res) = names
+      write.table(res, output, row.names = FALSE, sep = "\t", quote = FALSE)
+    }
+    else if (list_id_input_type == "file") {
+      names(res) = options
+      names = c(names(file_all), names)
+      output_content = cbind(file_all, res)
+      colnames(output_content) = names
+      write.table(output_content, output, row.names = FALSE, sep = "\t", quote = FALSE)
+    }
+  }
+}
+
+mapping()