Clip values to a symmetric range
Examples
df <- data.frame(avg_log2FC = c(-10, -2, 0, 2, 10))
clip_symmetric_range(df)
#> $data
#> avg_log2FC
#> 1 -9.68
#> 2 -2.00
#> 3 0.00
#> 4 2.00
#> 5 9.68
#>
#> $limits
#> [1] -9.68 9.68
#>