結果 : r get source code of function