#reverse link function
reverseLink <- function(synId){
foo <- synapseClient::synGet(synId,downloadFile = F)
fooProperties <- synapseClient::synGetProperties(foo)
targetId <- fooProperties$linksTo$targetId
parentId <- fooProperties$parentId
synapseClient::synDelete(synId)
moveFile(targetId,parentId)
#synDelete()
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.