Category "across"

How to add a column name inside a case_when when using mutate_all and across?

I have the following dataframe and I want to mutate all the columns in ENV dataframe to substitute some value with case_when function: metrics <- stru