внутри внутри функция работает, но не сохраняет функцию в наборах данных списка

Question

Когда я использую эту функцию из блестящего приложения, она работает, и новая переменная "response" добавляется в наборы данных в списке.Но здесь код выполняется, но новая переменная не появляется ...

  for (i in 1:length(unique(indata()$Y))){
within(lapply(b_data,"[" ,c(1:ncol(df_products_upload())))[[i]], response <- a_function(A,B,C))
     print(colnames(b_data[[i]]))
    }