コメントを失うことなく文字列に変換する機能

Question

機能を文字列に変換したい。クラス関数をクラス文字に直接変換できないので、function〜list〜characterロジックを使用しています。ただし、listは関数からコメントを削除します。

例：

foo <- function() { 
    1 + 1 
} 
# Can't use as.character(foo), thus: 
as.character(list(foo)) 
    "function() \n{\n 1 + 1\n}" 

機能は、その後のコメントが含まれている場合しかし、それは削除される

bar <- function() { 
    # sum 
    1 + 1 
} 
as.character(list(bar)) 
    "function() \n{\n 1 + 1\n}" 

質問：リストには、機能とどのようにそれらを保存するからコメントを削除するのはなぜ？または関数を文字列に変換するより良い方法は何ですか？

編集：対話型のRセッションにcapture.output作品を使用することにより、MrFlick 提案。しかし、使用code.R場合：

bar <- function() { 
    # sum 
    1 + 1 
} 
# collectMetaData() 
print(paste0(capture.output(print(bar)), collapse="\n")) 

そしてRscript code.R私の出力でそれを実行しようとはまだです："function() \n{\n 1 + 1\n}"

Answer 1

私は見当がつかない、なぜあなたはそれをやってみたいと思います。これはxyの問題のようです。とにかく、あなたは機能を逆パースしたいように見える：

bar <- function() { 
    # sum 
    1 + 1 
} 

paste(deparse(bar, control = "useSource"), collapse = "\n") 
#[1] "function() {\n # sum\n 1 + 1\n}"