Skip to content

Commit

Permalink
Use specialized check of integer-likeness
Browse files Browse the repository at this point in the history
rich-iannone committed Dec 1, 2023
1 parent 4c81264 commit 03fe13a
Showing 1 changed file with 8 additions and 2 deletions.
10 changes: 8 additions & 2 deletions R/utils_plots.R
Original file line number Diff line number Diff line change
@@ -1104,19 +1104,25 @@ generate_nanoplot <- function(
"</rect>"
)

if (rlang::is_integerish(y_scale_max) && rlang::is_integerish(y_scale_min)) {
y_axis_guide_vals_integerlike <- TRUE
} else {
y_axis_guide_vals_integerlike <- FALSE
}

y_value_max_label <-
format_number_compactly(
y_scale_max,
currency = currency,
as_integer = y_vals_integerlike,
as_integer = y_axis_guide_vals_integerlike,
fn = y_axis_fmt_fn
)

y_value_min_label <-
format_number_compactly(
y_scale_min,
currency = currency,
as_integer = y_vals_integerlike,
as_integer = y_axis_guide_vals_integerlike,
fn = y_axis_fmt_fn
)

0 comments on commit 03fe13a

Please sign in to comment.