diff --git a/cute_little_R_functions.R b/cute_little_R_functions.R index 432300f95b71c6d578ec136e07e02f2f21bb1bd6..50a8bcfe9c8c905350fef500e04990f8bc69ba98 100644 --- a/cute_little_R_functions.R +++ b/cute_little_R_functions.R @@ -7908,7 +7908,7 @@ arg.check <- c(arg.check, TRUE) } if( ! is.null(y.second.tick.nb)){ tempo <- fun_check(data = y.second.tick.nb, class = "vector", typeof = "integer", length = 1, double.as.integer.allowed = TRUE, fun.name = function.name) ; eval(ee) -if(tempo$problem == FALSE & y.second.tick.nb < 0){ +if(tempo$problem == FALSE & y.second.tick.nb <= 0){ tempo.cat <- paste0("y.second.tick.nb ARGUMENT MUST BE A NON NULL POSITIVE INTEGER") text.check <- c(text.check, tempo.cat) arg.check <- c(arg.check, TRUE) @@ -9377,8 +9377,6 @@ return(tempo <- output) - - # add return.ggplot = FALSE, from boxplot # add facet from boxplot if data1 is a dataframe or list of length 1 # error to fix: 1) accept integers as color, 2) fun_scale but xhuld be ok when importing the job from boxplot @@ -9648,7 +9646,7 @@ arg.check <- c(arg.check, TRUE) } if( ! is.null(x.second.tick.nb)){ tempo <- fun_check(data = x.second.tick.nb, class = "vector", typeof = "integer", length = 1, double.as.integer.allowed = TRUE, fun.name = function.name) ; eval(ee) -if(tempo$problem == FALSE & x.second.tick.nb < 0){ +if(tempo$problem == FALSE & x.second.tick.nb <= 0){ tempo.cat <- paste0("ERROR IN ", function.name, ": x.second.tick.nb ARGUMENT MUST BE A NON NULL POSITIVE INTEGER") text.check <- c(text.check, tempo.cat) arg.check <- c(arg.check, TRUE) @@ -9684,7 +9682,7 @@ arg.check <- c(arg.check, TRUE) } if( ! is.null(y.second.tick.nb)){ tempo <- fun_check(data = y.second.tick.nb, class = "vector", typeof = "integer", length = 1, double.as.integer.allowed = TRUE, fun.name = function.name) ; eval(ee) -if(tempo$problem == FALSE & y.second.tick.nb < 0){ +if(tempo$problem == FALSE & y.second.tick.nb <= 0){ tempo.cat <- paste0("ERROR IN ", function.name, ": y.second.tick.nb ARGUMENT MUST BE A NON NULL POSITIVE INTEGER") text.check <- c(text.check, tempo.cat) arg.check <- c(arg.check, TRUE) @@ -10779,3 +10777,4 @@ return(output) + diff --git a/cute_little_R_functions.docx b/cute_little_R_functions.docx index 8432c7fbbd6b119933761dbd39c9f70d9f19a51d..3a67c6d3ec377dc2f109152dc879c10749a28ef4 100644 Binary files a/cute_little_R_functions.docx and b/cute_little_R_functions.docx differ diff --git a/fun_gg_boxplot.docx b/fun_gg_boxplot.docx index 67de1bb53fd5b8ef499252325c2509c4033ef4fa..39d6321d3d20a9db58a5ae8568323e080b38c533 100644 Binary files a/fun_gg_boxplot.docx and b/fun_gg_boxplot.docx differ diff --git a/scatter.docx b/scatter.docx index 6072f1a8e6d762eac506a9ac551d6dd5270e75f5..9acd66d54941becb3c5dd5403913e578e00b2be5 100644 Binary files a/scatter.docx and b/scatter.docx differ