Repository 'shm_csr'
hg clone https://toolshed.g2.bx.psu.edu/repos/davidvanzessen/shm_csr

Changeset 54:ba3220f921af (2017-05-30)
Previous changeset 53:3be28ac82909 (2017-05-24) Next changeset 55:6cd12c71c3d3 (2017-06-14)
Commit message:
Uploaded
modified:
imgt_loader.r
shm_csr.xml
b
diff -r 3be28ac82909 -r ba3220f921af imgt_loader.r
--- a/imgt_loader.r Wed May 24 04:26:04 2017 -0400
+++ b/imgt_loader.r Tue May 30 07:40:15 2017 -0400
[
@@ -68,29 +68,29 @@
 out[,"VDJ Frame"] = as.character(out[,"VDJ Frame"])
 
 fltr = out[,"VDJ Frame"] == "in-frame"
-if(any(fltr)){
+if(any(fltr, na.rm = T)){
  out[fltr, "VDJ Frame"] = "In-frame"
 }
 
 fltr = out[,"VDJ Frame"] == "null"
-if(any(fltr)){
+if(any(fltr, na.rm = T)){
  out[fltr, "VDJ Frame"] = "Out-of-frame"
 }
 
 fltr = out[,"VDJ Frame"] == "out-of-frame"
-if(any(fltr)){
+if(any(fltr, na.rm = T)){
  out[fltr, "VDJ Frame"] = "Out-of-frame"
 }
 
 fltr = out[,"VDJ Frame"] == ""
-if(any(fltr)){
+if(any(fltr, na.rm = T)){
  out[fltr, "VDJ Frame"] = "Out-of-frame"
 }
 
 for(col in c('Top V Gene','Top D Gene','Top J Gene')){
  out[,col] = as.character(out[,col])
  fltr = out[,col] == ""
- if(any(fltr)){
+ if(any(fltr, na.rm = T)){
  out[fltr,col] = "NA"
  }
 }