[r] 자신의 함수를 작성할 때 R의 줄임표 기능을 사용하는 방법은 무엇입니까?

답변과 의견을 읽었으며 언급되지 않은 내용은 거의 없습니다.

1. data.framelist(...)버전을 사용합니다 . 코드 조각 :

   object <- as.list(substitute(list(...)))[-1L]
   mrn <- is.null(row.names)
   x <- list(...)
   

   object열 이름으로 마술 x을 만드는 데 사용 되지만 final을 만드는 데 사용됩니다 data.frame.
   평가되지 않은 ...인수 를 사용하려면 사용 되는 write.csv코드를 확인하십시오 match.call.

2. 의견에 쓰면 Dirk answer는 목록의 목록이 아닙니다. 길이가 4 인 요소의 목록입니다 language. 첫 번째 객체는 symbol– list이고 두 번째 객체는 표현식 1:10입니다. [-1L]필요한 이유를 설명 합니다 : symbol제공된 인수에서 예상 인수를 제거합니다 ...(항상 목록이므로).
   Dirk 상태 substitute에서 “평가되지 않은 구문 분석 트리”를 반환합니다.
   당신이 호출 할 때 my_ellipsis_function(a=1:10,b=11:20,c=21:30)다음 ...인수 목록을 “만들어” list(a=1:10,b=11:20,c=21:30)하고 substitute그것을 네 가지 요소의 목록을 만들 :

   List of 4
   $  : symbol list
   $ a: language 1:10
   $ b: language 11:20
   $ c: language 21:30
   

   첫 번째 요소는 이름이 없으며 이것은 [[1]]Dirk answer에 있습니다. 다음을 사용 하여이 결과를 얻습니다.

   my_ellipsis_function <- function(...) {
     input_list <- as.list(substitute(list(...)))
     str(input_list)
     NULL
   }
   my_ellipsis_function(a=1:10,b=11:20,c=21:30)
   

3. 위와 같이 str함수에 어떤 객체가 있는지 확인할 수 있습니다 .

   my_ellipsis_function <- function(...) {
       input_list <- list(...)
       output_list <- lapply(X=input_list, function(x) {str(x);summary(x)})
       return(output_list)
   }
   my_ellipsis_function(a=1:10,b=11:20,c=21:30)
    int [1:10] 1 2 3 4 5 6 7 8 9 10
    int [1:10] 11 12 13 14 15 16 17 18 19 20
    int [1:10] 21 22 23 24 25 26 27 28 29 30
   $a
      Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
      1.00    3.25    5.50    5.50    7.75   10.00 
   $b
      Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
      11.0    13.2    15.5    15.5    17.8    20.0 
   $c
      Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
      21.0    23.2    25.5    25.5    27.8    30.0 
   

   괜찮아. substitute버전을 볼 수 있습니다 :

      my_ellipsis_function <- function(...) {
          input_list <- as.list(substitute(list(...)))
          output_list <- lapply(X=input_list, function(x) {str(x);summary(x)})
          return(output_list)
      }
      my_ellipsis_function(a=1:10,b=11:20,c=21:30)
       symbol list
       language 1:10
       language 11:20
       language 21:30
      [[1]]
      Length  Class   Mode 
           1   name   name 
      $a
      Length  Class   Mode 
           3   call   call 
      $b
      Length  Class   Mode 
           3   call   call 
      $c
      Length  Class   Mode 
           3   call   call 
   

   우리가 필요한 것이 아닙니다. 이러한 종류의 객체를 처리하려면 추가 트릭이 필요합니다 (에서와 같이 write.csv).

사용하려면 ...Shane answer에서와 같이 사용하십시오 list(...).

답변

> test.func <- function(...) { lapply(list(...), class) }
> test.func(a="b", b=1)
$a
[1] "character"

$b
[1] "numeric"

get_list_from_ellipsis1 <- function(...)
{
  list(...)
}
get_list_from_ellipsis1(a = 1:10, b = 2:20) # returns a list of integer vectors

$a
 [1]  1  2  3  4  5  6  7  8  9 10

$b
 [1]  2  3  4  5  6  7  8  9 10 11 12 13 14 15 16 17 18 19 20

get_list_from_ellipsis2 <- function(...)
{
  as.list(substitute(list(...)))[-1L]
}
get_list_from_ellipsis2(a = 1:10, b = 2:20) # returns a list of calls

$a
1:10

$b
2:20

R> my_ellipsis_function <- function(...) {
+   input_list <- as.list(substitute(list(...)))
+ }
R> print(my_ellipsis_function(a=1:10, b=2:20))
[[1]]
list

$a
1:10

$b
11:20

R> 

> talk <- function(func, msg, ...){
+     func(msg, ...);
+ }
> talk(cat, c("this", "is", "a","message."), sep=":")
this:is:a:message.
> 

> talk <- function(func, msg=c("Hello","World!"), ...){
+     func(msg, ...);
+ }
> talk(cat,sep=":")
Hello:World!
> talk(cat,sep=",", fill=1)
Hello,
World!
>