populateInternalDirectoryMigration: migration function to populate internal directory with...

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

Usage

populateInternalDirectoryMigration(synId, G, Q = NULL, topId)

Arguments

synId
G
Q
topId

Examples

##---- Should be DIRECTLY executable !! ----
##-- ==>  Define data, use random,
##--	or do  help(data=index)  for the standard data sets.

## The function is currently defined as
function (synId, G, Q = NULL, topId)
{
    if (is.null(Q)) {
        Q <- list()
        Q$adj <- G$adj
        Q$adj[1:length(Q$adj)] <- 0
        Q$id <- G$id
        Q$id[1] <- topId
        G$id[1] <- topId
        rownames(G$adj) <- G$id
        colnames(G$adj) <- G$id
        rownames(Q$adj) <- G$id
        colnames(Q$adj) <- G$id
        names(G$type) <- G$id
        names(G$name) <- G$id
        Q$newid <- Q$id
        names(Q$newid) <- Q$id
        synId <- topId
    }
    e <- names(which(G$adj[synId, ] == 1))
    if (length(e) > 0) {
        for (i in 1:length(e)) {
            if (Q$adj[synId, e[i]] == 0) {
                Q$adj[synId, e[i]] <- 1
                if (G$type[e[i]] == "org.sagebionetworks.repo.model.Folder") {
                  Q$newid[e[i]] <- makeNewFolder(synId, e[i],
                    Q, G)
                  Q <- populateNewDirectory2(e[i], G, Q, topId)
                }
                else if (G$type[e[i]] == "org.sagebionetworks.repo.model.FileEntity") {
                  w1 <- which(Q$adj[, Q$newid[e[i]]] == 1)
                  print(c(G$name[e[i]], Q$newid[w1], e[i]))
                  makeLink(fileId = as.character(e[i]), parentId = as.character(Q$newid[w1]),
                    linkName = as.character(G$name[e[i]]))
                }
                else {
                  stop("Object type not recognized\n")
                }
            }
            else {
                return(Q)
            }
        }
    }
    else {
        return(Q)
    }
    return(Q)
  }

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