#'
#' @title Checks an object has been generated on the server side
#' @description This is an internal function.
#' @details After calling an assign function it is important
#' to know whether or not the action has been completed by
#' cjhecking if the output actually exists on the server side.
#' @param datasources a list of opal object(s) obtained after login in to opal servers;
#' these objects hold also the data assign to R, as \code{dataframe}, from opal datasources.
#' @param newobj a character, the name the object to look for.
#' @keywords internal
#' @return nothing is return but the process is stopped if
#' the object was not generated in any one server.
#'
isAssigned <- function(datasources=NULL, newobj=NULL){
cally <- call('exists', newobj)
qc <- opal::datashield.aggregate(datasources, cally)
indx <- as.numeric(which(qc==TRUE))
if(length(indx) > 0 & length(indx) < length(datasources)){
stop("The output object, '", newobj, "', was generated only for ", names(datasources)[indx], "!", call.=FALSE)
}
if(length(indx) == 0){
stop("The output object has not been generated for any of the studies!", call.=FALSE)
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.