Merge pull request #12 from pranavanba/main

Use latest commit hash for provenance

deidentification.R

@@ -118,8 +118,8 @@ for (i in seq_along(deidentified_results$values_to_review)) {
 }
 
 # Index each file in Synapse
-# latest_commit <- gh::gh("/repos/:owner/:repo/commits/main", owner = "Sage-Bionetworks", repo = "recover-parquet-external")
-# latest_commit_tree_url <- latest_commit$html_url %>% stringr::str_replace("commit", "tree")
+latest_commit <- gh::gh("/repos/:owner/:repo/commits/main", owner = "Sage-Bionetworks", repo = "recover-parquet-external")
+latest_commit_tree_url <- latest_commit$html_url %>% stringr::str_replace("commit", "tree")
 
 for (i in seq_along(list.files('./dictionaries/new_to_review/'))) {
   synStore(File(path = list.files('./dictionaries/new_to_review/', full.names = T)[i], 
@@ -128,7 +128,7 @@ for (i in seq_along(list.files('./dictionaries/new_to_review/'))) {
           activityDescription = "Indexing files containing PII values to review",
           used = c((synGetChildren('syn52316269') %>% as.list())[[i]]$id, 
                    synFindEntityId(names(deidentified_results$deidentified_datasets)[i], 
-                                   parent = PARQUET_FOLDER_INTERNAL))
-           # executed = latest_commit_tree_url
-           )
+                                   parent = PARQUET_FOLDER_INTERNAL)),
+          executed = latest_commit_tree_url
+          )
 }