Round and format p-values
Examples
p_vec <- c(0.00001, 0.01111, 0.0500000, 0.15, 0.99999)
format_p(p_vec)
#> [1] "<0.001" "0.011"  "0.050"  "0.15"   ">0.9"  
format_p(p_vec, 2)
#> [1] "<0.001" "0.011"  "0.050"  "0.15"   ">0.99" 
format_p(p_vec, 3)
#> [1] "<0.001" "0.011"  "0.050"  "0.150"  ">0.999"
