1

関数内で割り当てられたすべてのオブジェクトを返したいのですが、

そのようです：

foo <- function() { 
  as <- LETTERS[1:3]
  for(a in as) assign(a, sample(1000, 1))
  return(as) # obviously not working
  }

リストでラップする必要があるかもしれませんが、機能させることができません...

4

1 に答える 1

2

あなたが提案するように、私はそれをリストとして返しますが、setNamesこれはちょっと設計されています...

foo <- function( n ) { 
  as <- LETTERS[1:n]
  setNames( replicate( n , sample( 1000 , 1 ) , simplify = FALSE  ), as )
  }

foo(3)
#$A
#[1] 286

#$B
#[1] 54

#$C
#[1] 791
于 2013-09-16T08:53:09.510 に答える