Add function for 3 sig figures to fix the issue in gtsummary::label_style_sigfig(3)

[qiliu1013]

Feature description

In gtsummary::label_style_sigfig(3) for any number < 0.1 — it assumes 3 decimal places
is enough, this is not correct. 0.037 needs 4 decimal places for 3 sig figs
(0.0370), and 0.0037 would need 5.

The function to keep 3 sig figures should be
fmt_3sig <- function(x) { if (is.na(x) || !is.finite(x)) return(NA_character_) gsub("\\.$", "", formatC(signif(x, 3), digits = 3, format = "fg", flag = "#")) }

Code of Conduct

• I agree to follow this project's Code of Conduct.

Contribution Guidelines

• I agree to follow this project's Contribution Guidelines.

Security Policy

• I agree to follow this project's Security Policy.

[qiliu1013]

Hi Joe,

We found this issue in PKCT01. Is it possible to update gtsummary::label_style_sigfig(3) directly or have a fixed function in crane?

Thanks,
Qi

[shajoezhu]

Hi Qi,

This is an issue very specific for our use. we will need to do it in crane.

Best
Joe

[copilot-swe-agent]

The agent encountered an error and was unable to start working on this issue: You don't have sufficient GitHub AI Credits to start a session. Review your usage in your Copilot settings, then try again. (Request id: E235:2D6395:188456:1C2B0C:6A580BCD)

[Kcdahn]

Within crane, should this be a stand alone R file/function added or create a file with multiple formatting functions (like Tern has)? If a multiple function file, this one could be the first one then add more as identified. See: https://github.com/insightsengineering/tern/blob/main/R/formatting_functions.R