Create short function names
Examples
clean_f_name(mean)
#> [1] "mean"
clean_f_name("mean")
#> [1] "mean"
clean_f_name(~ mean(.x, na.rm = TRUE))
#> [1] "mean(.x, na.rm = ..."
clean_f_name(\(x) mean(x, na.rm = TRUE))
#> [1] "[ ]{mean(x, na.r...}"
clean_f_name(function(x) mean(x, na.rm = TRUE, trim = 0.2357862))
#> [1] "[ ]{mean(x, na.r...}"