## Not run:
# # get an arbitrary Evaluation ID
# anEvaluationId<-synRestGET("/evaluation")$results[[1]]["id"]
# # retrieve the evaluation
# evaluation<-synGetEvaluation(anEvaluationId)
# # check its status
# propertyValue(evaluation, "status")
# # if I have administrative privileges I can update it
# propertyValue(evaluation, "description")<-"some new description"
# evaluation<-synStore(evaluation)
#
# # Or if you know a project with an evaluation
# # For example, the HPN-DREAM 1A challenge
# projectId <- "syn1720047"
# paginatedEvaluations <- synGetEvaluationByContentSource(projectId)
# evaluation <- paginatedEvaluations@results[[1]]
# ## End(Not run)
Run the code above in your browser using DataLab