R 스크립트 내에 함수 포함

Question

희망은 한 번에 R에 붙여 넣을 수있는 스크립트를 작성하는 것입니다. 이상적으로이 스크립트에는 다양한 기능이 산재 해있는 코드 행이 있습니다. 하지만 지금부터는 코드를 한 번에 하나씩 붙여 넣어야합니다. 왜냐하면 (작성한대로) 함수는 그 아래의 코드와 동시에 실행될 때 작동하지 않기 때문입니다.

아래 코드에서 사용자가 초기 데이터를 입력하고 계산을 실행하게하고 싶습니다. 여러 행의 "readline"호출을 연속적으로 실행할 수 없기 때문에이를 Define 함수로 묶었습니다. 그러나 한 번에 R에 붙여 넣으면 다음 코드가 작동하지 않습니다.

Define<-function(){ 
N<-readline("EnterDeployment # ") 
Y<-as.numeric(readline("What Year was the Deployment? ")) 
L<-as.numeric(readline("What is the Distance? ")) 

return(list("Year"=Y,"Name"=N, "Length"=L))  
} 

Def<-Define() 

Name<-Def$Name 
Year<-Def$Year 
L<-Def$Length 

readline(paste("UPDN=",Name,"Year=",Year,"Distance=",L,"If this is correct press Return", sep=" ")) 


D<-L/4 
F<-D*5 

하지만 세그먼트로 그것을 어기면, 그냥 잘 작동합니다. 단일 또는 다중 함수를 코드 행에 통합하는 방법이 있습니까?

Answer 1

다른 단계도없는 것은 아닙니다. 그것은 문제를 해결하고 더 살이 좋은 IMHO가 될 것입니다.

> FOO() 
EnterDeployment # 12 
What Year was the Deployment? 2012 
What is the Distance? 54 
UPDN= 12 Year= 2012 Distance= 54 If this is correct press Return 
$D 
[1] 13.5 

$F 
[1] 67.5 

는 물론, 당신이 source()에 FOO()를 포함하는 .R 파일을해야합니다,하지만 그건 문제가되지 않습니다 : 사용

FOO <- function() { 
    Define<-function(){ 
    N<-readline("EnterDeployment # ") 
    Y<-as.numeric(readline("What Year was the Deployment? ")) 
    L<-as.numeric(readline("What is the Distance? ")) 

    list("Year"=Y,"Name"=N, "Length"=L) 
    } 
    Def<-Define() 

    Name<-Def$Name 
    Year<-Def$Year 
    L<-Def$Length 

    readline(paste("UPDN=",Name,"Year=",Year,"Distance=",L, 
       "If this is correct press Return",  
       sep=" ")) 

    D<-L/4 
    F<-D*5 
    list(D = D, F = F) 
} 

우리가 있습니다.

왜 이렇게 좋습니까? 이런 기능과 관련된 모든 단계를 캡슐화하는 것은 깔끔합니다. 또한 중간 단계로 생성 된 객체를 오염시키지 않습니다. 마지막으로 이것을 다른 사용자에게 전달하면 R 패키지로 패키징 할 수 있습니다 (문서를 작성할 필요가 없습니다. 베어 코어 뼈 (.Rd) 만 추가하면됩니다).