Nothing
calculateConstraints <-
function(results,x_axis=1,y_axis=2,constraints=NULL){
axis1<-x_axis
axis2<-y_axis
if(!is.null(constraints)){
if(("minx" %in% names(constraints)) && ("maxx" %in% names(constraints)) && ("miny" %in% names(constraints)) && ("maxy" %in% names(constraints))){
constraintsCheck <- computeConstraints(results,x_axis,y_axis)
if(constraintsCheck$minx < constraints$minx){
constraints$minx <- constraintsCheck$minx
#print("minx constraint changed.")
}
if(constraintsCheck$miny < constraints$miny){
constraints$miny <- constraintsCheck$miny
#print("miny constraint changed.")
}
if(constraintsCheck$maxx > constraints$maxx){
constraints$maxx <- constraintsCheck$maxx
#print("maxx constraint changed.")
}
if(constraintsCheck$maxy > constraints$maxy){
constraints$maxy <- constraintsCheck$maxy
#print("maxy constraint changed.")
}
return(constraints)
}else{
#constraints <- computeConstraints(results,x_axis,y_axis)
return(computeConstraints(results,x_axis,y_axis))
}
}#else{
#constraints <- computeConstraints(results,x_axis,y_axis)
#}
#return(constraints)
return(computeConstraints(results,x_axis,y_axis))
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.