From 310ae90bfbcfd4ad5e3f433682d4d373783e1164 Mon Sep 17 00:00:00 2001
From: Danielle Callan <dcallan@upenn.edu>
Date: Mon, 18 Mar 2024 14:33:58 -0400
Subject: [PATCH] fill computationDetails for correlation compute results

---
 R/method-correlation.R | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/R/method-correlation.R b/R/method-correlation.R
index 5198d2f..892c6f5 100644
--- a/R/method-correlation.R
+++ b/R/method-correlation.R
@@ -42,6 +42,7 @@ function(data1, data2, method = c('spearman','pearson'), format  = c('ComputeRes
     return(corrResult)
   } else {
     result <- veupathUtils::buildCorrelationComputeResult(corrResult, data1, data1@sampleMetadata, method, verbose)
+    result@computationDetails <- 'correlation'
     return(result)
   }
 })
@@ -84,6 +85,7 @@ function(data, method = c('spearman','pearson','sparcc'), format = c('ComputeRes
     return(corrResult)
   } else {
     result <- veupathUtils::buildCorrelationComputeResult(corrResult, data, NULL, method, verbose)
+    result@computationDetails <- 'selfCorrelation'
     return(result)
   }  
 })
@@ -105,6 +107,7 @@ function(data, method = c('spearman','pearson','sparcc'), format = c('ComputeRes
     return(corrResult)
   } else {
     result <- veupathUtils::buildCorrelationComputeResult(corrResult, data, NULL, method, verbose)
+    result@computationDetails <- 'selfCorrelation'
     return(result)
   }
 })
@@ -153,6 +156,7 @@ function(data1, data2, method = c('spearman','pearson'), format = c('ComputeResu
     return(corrResult)
   } else {
     result <- veupathUtils::buildCorrelationComputeResult(corrResult, data1, data2, method, verbose)
+    result@computationDetails <- 'correlation'
     return(result)
   } 
 })