コード圧縮
Posted feedbacks - R
すごいマイナス評価・・・!
Rのdeparse()は、適切にインデントを入れなおしてくれるという
(このお題的には)余計な機能がついてますが、とりあえずこんな感じで。
> writeLines(deparse(parse(text=code, srcfile=NULL)))
expression(sapply(1:10, function(n) {
for (i in 1:n) {
print(n)
}
print("------")
}))
1 2 3 4 5 6 7 8 9 10 11 12 | code <- ' sapply(1:10, function(n)
{
for(i in 1:n)
{
print(n)
}
print("------")
}
# comment
)
'
writeLines(deparse(parse(text=code, srcfile=NULL)))
|

sweetie089 #6664() Rating-6/10=-0.60
[ reply ]