R/checkPlot.r

Defines functions checkPlot

Documented in checkPlot

checkPlot<-function(){
#Check to see is there is a problem with plotting
#this can only be called through the gui
#' @export

	DVec<-convert2Score(.RSCABSEnv$UseData[[.RSCABSEnv$Response2Graph]])
	if (length(which(is.na(DVec)==FALSE))==0){
		return('Error! There is no data for this endpoint')
	}		
	if (sum(DVec,na.rm=TRUE)==0 && identical(.RSCABSEnv$LowestGraph,'Remove')==TRUE){
		return('Warning! There is no response for this endpoint\n Included the lowest value to see the graph.')
	}	
return()	
}

Try the RSCABS package in your browser

Any scripts or data that you put into this service are public.

RSCABS documentation built on May 1, 2020, 9:06 a.m.