Commit 0088c00d authored by Gael  MILLOT's avatar Gael MILLOT
Browse files

bug corrected in fun_gg_boxplot() and fun_gg_scatter(): secondary tick...

bug corrected in fun_gg_boxplot() and fun_gg_scatter(): secondary tick arguments cannot be 0 (because error with fun_inter_tick())
parent 511c756a
......@@ -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)
 
 
 
No preview for this file type
No preview for this file type
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment