default_max(org_max = 2, new_max = 0.01, f = log10)
#> [1] 0.30103
default_max(org_max = 0, new_max = 0.01, f = log10)
#> [1] -2
default_max(org_max = 2, new_max = 0.01, f = log)
#> [1] 0.6931472
default_max(org_max = 0, new_max = 0.01, f = log)
#> [1] -4.60517