fix

obophenotype · Mar 9, 2022 · 14a8294 · 14a8294
1 parent b174cfe
commit 14a8294
Show file tree

Hide file tree

Showing 4 changed files with 6,403 additions and 2,431 deletions.
diff --git a/src/ontology/compare-old-new-report.R b/src/ontology/compare-old-new-report.R
@@ -2,10 +2,22 @@
 old_report <- read.table(file = '/Users/shawntan/documents/GitHub/ABA_Uberon/src/ontology/report/old-report.tsv')
 new_report <- read.table(file = '/Users/shawntan/documents/GitHub/ABA_Uberon/src/ontology/report.tsv')
 
+# lowercase everything
+
+new_report <- data.frame(lapply(new_report, function(v) {
+  if (is.character(v)) return(tolower(v))
+  else return(v)
+}))
+
+old_report <- data.frame(lapply(old_report, function(v) {
+  if (is.character(v)) return(tolower(v))
+  else return(v)
+}))
+
 require(dplyr)
 
 diff_old_new <- anti_join(old_report, new_report)
-diff_old_new <- anti_join(new_report, old_report)
+diff_new_old <- anti_join(new_report, old_report)
 
-write.table(diff_old_new, file='/Users/shawntan/documents/GitHub/ABA_Uberon/src/ontology/report/old-to-new.tsv', quote=FALSE, sep='\t')
-write.table(diff_new_old, file='/Users/shawntan/documents/GitHub/ABA_Uberon/src/ontology/report/new-to-old.tsv', quote=FALSE, sep='\t')
+write.table(diff_old_new, file='/Users/shawntan/documents/GitHub/ABA_Uberon/src/ontology/report/in-old-not-new.tsv', quote=FALSE, sep='\t')
+write.table(diff_new_old, file='/Users/shawntan/documents/GitHub/ABA_Uberon/src/ontology/report/in-new-not-old.tsv', quote=FALSE, sep='\t')
diff --git a/src/ontology/report/old-to-new.tsv → src/ontology/report/in-new-not-old.tsv b/src/ontology/report/old-to-new.tsv → src/ontology/report/in-new-not-old.tsv