R/errorSingleIntegerSampleSize.R

In predictMe: Visualize Individual Prediction Performance

# errorSingleIntegerSampleSize
#
#
errorSingleIntegerSampleSize <- function(try_x) {
    # 6 error cases. The last exit case means: None of the checked errors applied.
    errorCases <- 6
      # 1
    if(length(try_x)!=1) {
        return(
            list(val=1,
                 msg="Function argument requires a single value.",
                 ec=errorCases))
      # 2
    } else if(try_x%%1!=0) {
        return(
            list(val=2,
                 msg="Function argument requires an integer value, e.g., 100, not a real number (such as 100.1)",
                 ec=errorCases))
      # 3 
    } else if(try_x < 2) {
        return(
            list(val=3,
                 msg="Function argument requires a value of 2 or greater.",
                 ec=errorCases))
      # 4
    } else if(is.na(try_x)) {
        return(
            list(val=4,
                 msg="Function argument must not be NA.",
                 ec=errorCases))
      # 5 
    } else if(is.null(try_x)) {
        return(
            list(val=5,
                 msg="Function argument must not be NULL.",
                 ec=errorCases))
      # 6    
    } else if(!is.numeric(try_x)) {
        return(
            list(val=6,
                 msg="Function argument must be either of class integer or of class numeric.",
                 ec=errorCases))
    } else {
      return(
        list(val=0,
             msg="errorSingleInteger_n filed no complaint.",
             ec=errorCases))
    }
}