inst/integrationTests/test_childEntityGet.R

In Sage-Bionetworks/rSynapseClientRewrite: Synapse R Client from Sage Bionetworks

# Test funtions for getting child entities
# 
# Author: Nicole Deflaux <nicole.deflaux@sagebase.org>
###############################################################################

# integrationTestSawyersDatasetChildEntityGet <- 
#   function() 
# {
#   datasets <- synapseQuery(query='select * from dataset where dataset.name == "MSKCC Prostate Cancer"')
#   layers <- getDatasetLayers(entity=datasets$dataset.id[1], includeParentAnnot = FALSE)
#   checkTrue(5 <= nrow(layers))
#   layer <-getEntity(entity=layers$id[1])
#   layer <- synapseClient:::.extractEntityFromSlots(layer)
#   previews <- synapseClient:::getLayerPreviews(entity=layer)
#   checkTrue(1 <= nrow(previews))
# }

# integrationTestSageBioCurationProjectChildEntityGet <- 
#   function() 
# {
#   projects <- synapseQuery(query='select * from project where project.name == "SageBioCuration"')
#   project <- getEntity(entity=projects$project.id[1])
#   project <- synapseClient:::.extractEntityFromSlots(project)
#   
#   datasets <- synapseClient:::getProjectDatasets(entity=project)
#   checkEquals(100, nrow(datasets))
#   
#   moreDatasets <- synapseClient:::getProjectDatasets(entity=project, limit=200)
#   checkTrue(115 <= nrow(moreDatasets))
# }