Fix y_scale_breaks

ddionrails · Nov 10, 2023 · ff19777 · ff19777
1 parent aa4d589
commit ff19777
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/numeric_plots.R b/R/numeric_plots.R
@@ -17,11 +17,11 @@ y_scale_breaks <- function(column, limits = vector()) {
     if (maximum >= 1000) {
         maximum <- maximum + 499
     }
-    if (maximum < 1000) {
+    if (maximum < 1000 && maximum > 100) {
         interval <- 50
         maximum <- maximum + 49
     }
-    if (maximum < 100) {
+    if (maximum < 100 && maximum > 10) {
         interval <- 5
         maximum <- maximum + 4
     }