Удалите строку на основе значения в столбце, используя операторы if

Я надеюсь создать функцию, в которой она удаляет строку, если значение в столбце B меньше среднего значения для всего столбца.

testing<-function(x){
for(n in x){
    if(n < mean(n){
    *drop the entire row*
    }

Пока я могу заставить R удалить только само значение, но не всю строку, поэтому пример использования этой функции будет

df$columnB <- testing(df$columnB)

поэтому входные данные для самой функции поступают только из одного из столбцов, но внутри функции она должна знать, чтобы удалить всю строку, а не только этот столбец, поэтому просто drop (n) будет недостаточно.

Для проверки использовали следующее:

iris_tibble<-as_tibble(iris)

#all values became NA and message saying "argument is not numeric or logical: returning NA"
testing <- function(x) {
  i <- x[,"Sepal.Length"] < mean(x[,"Sepal.Length"])
  return( x[!i,] )
}
testing(iris_tibble)

#Goal
testing <- function(x,y){
  i <- x[,y] < mean(x[,y])
  return( x[!i,] )
}

testing(iris_tibble,"Sepal.Length")