Apply provenance to existing synapse object

gistfile1.txt

metaDataOnly <- synGet(synapseId, downloadFile=F)

activity_name <- "RNA-seq Count File Merging"
input_files <- c("syn2875347")
code_files <- list(list(name = "merge_mouse_tau_rnaseq_counts.R",
                        url = "https://github.com/jaeddy/ampSynapseProjects/blob/v0.1-alpha/dataEnablement/R/merge_mouse_tau_rnaseq_counts.R", 
                        wasExecuted = T),
                    list(name = "merge_count_files.R",
                         url = "https://github.com/jaeddy/ampSynapseProjects/blob/v0.1-alpha/dataEnablement/R/merge_count_files.R", 
                         wasExecuted = T))
output_files <- c("syn3160706")
description <- paste("To execute run:", 
                      "Rscript merge_mouse_tau_rnaseq_counts.R")

attempt <- synStore(metaDataOnly,
                    used = input_files,
                    executed = code_files,
                    activityName = activity_name,
                    activityDescription = description)