다중 입력

Question

그래서 나는 현재, 나는이 pullsec.R상의 .Rnw 파일에서 아래의 파일에이 코드를 pullsec.R

pullsec <- function(session=NULL){ 
    if(is.null(session)) session<-1 
    stopifnot(is.numeric(session)) 
    paste("Session",1:10)[session] 
} 

를 호출하여 세션 번호 3을 선택해야 : 열 세션 "세션 3 '의 데이터 값이 모든 행을 뺄

source("pullsec.R") 
setsec <- pullsec(3) 

I 날이 데이터를 당길 수있는 것이다 pullsec.R 또 다른 블록을 추가 할 두 번째 열, 세션 이 열의 데이터는 세션 1-2, 세션 3-4, 세션 5-6 등입니다. 그러나 여러 입력을 허용하도록 pullsec 블록을 수정하는 방법을 모르겠습니다.

나는 많은 해결책을 시도했지만 물지 않았다. 내 대부분의 순진 솔루션입니다 :

pullsec2 <- function(sessions1=NULL,sessions2=NULL){ 
    if(is.null(sessions1)) sessions1<-1 
    stopifnot(is.numeric(session1)) 
    paste("Sessions",1:10,"-",1:10)[sessions] 
} 

Answer 1

이 중 하나를 할 것 :

pullsec2 <- function(session1=1,session2=2){ 
    stopifnot(is.numeric(session1)) 
    stopifnot(is.numeric(session2)) 
    paste0("Sessions ",session1,'-',session2) 
} 
pullsec2(3,4) 

pullsec2 <- function(sessions=1){ 
    stopifnot(is.numeric(sessions)) 
    paste("Sessions",paste0(sessions,collapse="-")) 
} 

pullsec2(3:4)