R/updateAnnotations.R

In Sage-Bionetworks/synapseCopyProject: Utility functions for interacting with Synapse

updateAnnotations <- function(synId,field,value,rmVar=NULL){
  library(synapseClient)
  synapseLogin()
  foo <- synGet(synId,downloadFile = F)
  bar <- synGetAnnotations(foo)
  bar <- as.list(bar)
  if(!is.null(rmVar)){
    bar <- bar[which(!names(bar)%in%rmVar)]
  }
  bar[field] <- value
  synSetAnnotations(foo) <- bar
  foo <- synStore(foo,forceVersion=F)
}