Replaces multiple underscores into a single underscore in a vector or string.
clean_multiple_underscores(x)cleaned vector or string.
Other vector calculations:
academic_year(),
interval_round(),
month_name(),
sum_0_1(),
transform_01_to_ft()
clean_multiple_underscores("hello___world")
#> [1] "hello_world"