Create a digits object — new

The idea here is to capture three pieces of data: (1) a function for formatting digits in an output number (2) a default number of digits to use and (3) a named list with digit customization information; the names correspond to potential future column names and the values are custom digit information.

new_digits(.fun = sig, .default = 3, ..., .data = NULL)

Arguments

.fun	function for modifying digits on a number
.default	the default value for digits
...	`name=value` pairs, where `name` references the data column name and `value` is the number of digits for that columns
.data	a named list to be used in place of `...`

Examples


x <- new_digits(round, .default = 2, WT = 1, ALB = 3)

as.list(x)
#> $has_digit_arg
#> [1] TRUE
#> 
#> $arg
#> [1] "function (x, digits = 0) "
#>