r - magrittr 逆パイプを使用した非標準評価構文の記述

Question

コードを単純化する簡単な方法を検討しています。

例

このsqrt関数は、以下の列のサブセットに簡単に適用できます。

require(magrittr)
mtcars[,-which(colnames(mtcars) %in% 
                 c("mpg", "cyl", "drat", "wt", "carb",
                   "hp", "qsec", "vs", "am", "gear"))] %<>%
  sqrt

問題

サブセット シーケンス全体を再度入力する必要なく、サブセットに他の変換を適用することに関心があります。

たとえば、コード：

mtcars[,-which(colnames(mtcars) %in% 
                 c("mpg", "cyl", "drat", "wt", "carb",
                   "hp", "qsec", "vs", "am", "gear"))] %<>%
  .data * 1000

エラーが返されます:

Error in function_list[[k]](value) : could not find function ".data"

を使用した構文と同じ.です。私の質問は次のとおりです。構文的には、関数と同じ効果を得るにはどうすればよいsqrtですが、渡されたサブセットに長い関数を適用できますか?