removed +1 from lseq length_out

RichardJActon · May 31, 2021 · 55aa288 · 55aa288
1 parent 26936d9
commit 55aa288
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/universal_colour_scaler.R b/R/universal_colour_scaler.R
@@ -23,7 +23,7 @@ range_check <- function(min, max, var) {
 #' @param to end
 #' @param length_out number of increments
 lseq <- function(from = 1, to = 100000, length_out = 6) {
-	length_out <- length_out + 1
+	# length_out <- length_out + 1
 	dirm <- if(length_out%%2 == 1) {ceiling} else {floor}
 	dirp <- if(length_out%%2 == 0) {ceiling} else {floor}
 	if(from < 0) {