Convert Alias to Function — alias_as_fmt

Accepted aliases are non-negative integers and strings.

The integers are converted to functions that round the statistics to the number of decimal places to match the integer.

The formatting strings come in the form "xx", "xx.x", "xx.x%", etc. The number of xs that appear after the decimal place indicate the number of decimal places the statistics will be rounded to. The number of xs that appear before the decimal place indicate the leading spaces that are added to the result. If the string ends in "%", results are scaled by 100 before rounding.

Usage

alias_as_fmt_fn(x, call = parent.frame())

Arguments

x: (integer, string, or function)
a non-negative integer, string alias, or function
call: (environment)
frame for error messaging. Default is parent.frame().

Value

a function

Examples

alias_as_fmt_fn(1)
#> function(x) {
#>     # round and scale vector
#>     res <-
#>       ifelse(
#>         is.na(x),
#>         NA_character_,
#>         format(round5(x * scale, digits = digits), nsmall = digits) |> str_trim()
#>       )
#> 
#> 
#>     # if width provided, pad formatted result
#>     if (!is.null(width)) {
#>       res <-
#>         ifelse(
#>           nchar(res) >= width | is.na(res),
#>           res,
#>           paste0(strrep(" ", width - nchar(res)), res)
#>         )
#>     }
#> 
#>     # return final formatted vector
#>     res
#>   }
#> <environment: 0x5557c7b74680>
alias_as_fmt_fn("xx.x")
#> function(x) {
#>     # round and scale vector
#>     res <-
#>       ifelse(
#>         is.na(x),
#>         NA_character_,
#>         format(round5(x * scale, digits = digits), nsmall = digits) |> str_trim()
#>       )
#> 
#> 
#>     # if width provided, pad formatted result
#>     if (!is.null(width)) {
#>       res <-
#>         ifelse(
#>           nchar(res) >= width | is.na(res),
#>           res,
#>           paste0(strrep(" ", width - nchar(res)), res)
#>         )
#>     }
#> 
#>     # return final formatted vector
#>     res
#>   }
#> <environment: 0x5557c6901b38>