R 사용하여 함수에 두 변수 전달은 lapply

Question

나는 함수는 다음과 같이 찾고 있습니다. Func_Daily()은 Func_getFiles() 함수에서 폴더 안에있는 파일을 가져오고 그 파일을 Func_data_read() 함수로 전달하여 해당 폴더 내의 각 파일을 읽고 변경합니다. 문제는 지금은 값 (sum_dbefore)을 계산하는 다른 기능을 가지고, 내가이 Func_data_read() 함수 내에서하는 것이 필요합니다

Func_data_read <- function(file){ 
    if(length(file) > 0){ 
    data <- lf_getNetCDF(file) 
    data$RR[1] <- data$RR[1]+sum_dbefore 
    data$RR_acc <- cumsum(data$RR) 
    }else{ 
    print(paste("no files on", DATE)) 
    } 
    return(data) 
} 

이 방법은 files Func_data_read()에와 함께 그 값을 전달하는 내부 lapply 있는가 함수 내에서 두 변수를 모두 사용하고 값을 다시 가져와 Func_Daily의 데이터에 저장 하시겠습니까? lapply를 사용하여 쉽게 할 수있는 방법이 있다고 생각합니다. 그러나 지금까지는 방법을 알 수 없었습니다. 가능한 경우 전체 설정을 다시 작성하고 싶지는 않지만 스크립트 내부의 몇 가지 기능에 연결되어 있습니다. 그래서 lapply를 사용하여 sum_dbefore과 files을 전달하고 Func_data_read() 안에 사용하면됩니다.

Answer 1

예, 다음은이 sum_before을 가정해야 할 모든 files에 대한 같은 : 그것은

Func_data_read <- function(file, sum_dbefore) { 
    if(length(file) > 0){ 
    data <- lf_getNetCDF(file) 
    data$RR[1] <- data$RR[1]+sum_dbefore 
    data$RR_acc <- cumsum(data$RR) 
    } else { 
    print(paste("no files on", DATE)) 
    } 
    return(data) 
} 

위, 우리는 입력 인수를 추가하기 전에 Fun_data_read와

Func_Daily <- function(DATAdir, DATE, RERUN){ 
    sum_dbefore <- Func_day_before(DATE) 
    files <- Func_getFiles(DATE) 
    if(length(files) > 0){ 
    data <- mclapply(files, Func_data_read, sum_dbefore = sum_dbefore, mc.cores = nCores) 
    print(data) 
    } 
} 

정의 sum_dbefore ~ Fun_data_read(...)에 대해 sum_dbefore ~ Fun_data_read() ~를 전달합니다.3210을 "FUN의 선택적 인수"로 사용하십시오. documentation for mclapply USAGE 아래 참조 :

mclapply (X, 재미를, ..., mc.preschedule = TRUE, mc.set.seed = TRUE, mc.silent = FALSE, mc.cores = 위해 getOption ("코어") mc.cleanup = TRUE)

및 인수

... 재미 선택적 인수

희망이 도움이됩니다.

Answer 2

내가 제대로 이해했고 sum_dbefore 다음 명시 적으로 mclapply 내 Func_data_read(x)이 통과 할 필요가 없습니다, 모든 files에 대해 하나의 일정하다고 가정하면.

sum_dbefore이 Func_data_read(x)에서 발생하면 R은 함수의 둘러싸는 환경에서이 변수를 검색합니다. 존재하지 않으면 둘러싸는 환경을 둘러싼 환경을 검색합니다. 좋은 설명은 here입니다.예를 들어

,

library(parallel) 
q <- 10 
mclapply(1:3, function(x) sqrt(x + q), mc.cores = 1) 

# [[1]] 
# [1] 3.316625 
# 
# [[2]] 
# [1] 3.464102 
# 
# [[3]] 
# [1] 3.605551 

그대로 귀하의 코드가 작동합니다.