How to properly remove outliers for specific list elements in r?

Question

I am trying to remove outliers for two specific columns(var1 and var2) nested in a grouped dataframes list,

For this task I am using filte