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)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.