Formats p-value in line with APA standard, returning it without leading 0 and as < .001 (or below the smallest value expressible with the given number of significant digits) and > .99 when it is extremely small or large.
fmt_p(p_value, digits = 3, equal_sign = TRUE)