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

Example for using the synapseCopyProject package.

library(synapseClient)
library(synapseCopyProject)

synapseLogin()

# Old project
oldPId <- "syn5554060"
oldP <- synGet(oldPId)

# New project will be copy of the old one
newP <- synStore(Project(name=paste("Copy of", oldP@properties$name)))

# Crawl it
G <- crawlSynapseObject(oldPId)

# Perform a copy
pC <- copyProject(newP@properties$id, G, topId=newP@properties$id)

# Create entity mapping to update wikis
entityMap <- pC$newid
names(entityMap) <- G$id

# copy Wikis
res <- lapply(seq_along(entityMap), 
              function(i) tryCatch(copyWiki(names(entityMap[i]), entityMap[i],
                                            entityMap = entityMap),
                                   error=function(e) NULL))
newP <- synDelete(newP)

Sage-Bionetworks/synapseCopyProject documentation built on May 9, 2019, 12:15 p.m.