Сохранение whitin цикла с разными именами переменных

Question

У меня есть функция, которая использует список кадров данных (variables) и дает в качестве вывода два кадра данных (для каждого кадра данных в списке), который я хочу сохранить каждый с другое имя переменной (вместо up.val и down.val) и разные имена файлов. И переменные, и имена файлов у меня есть на векторе символов, который я создал.

filtering_data <- function(x){ 

    x <- as.data.frame(x) 
    pval <- which(x$P.Value < 0.05) 
    pval <- x[pval,] 


    up.pval <- which(pval$t > 0) 
    down.pval <- which(pval$t < 0) 

    up.pval <- pval[up.pval,] 
    down.pval <- pval[down.pval,] 

    save(up.pval, file = file.Rda) 
    save(down.pval, file = file.Rda) 
    } 

lapply(variables, filtering_data) 

Answer 1

Я думаю, что вы хотите использовать assign для присвоения значений новых имен, а затем предоставить имена переменных как list аргумента save. как в:

filtering_data <- function(x,varName,file.rda){ 

    [calculations go here]] 

    # assign() only assigns one value so check the length of varName 
    stopifnot(length(varName)==1) 

    # make the new variable names 
    name.up <- paste0(varName,'.','up') 
    name.down <- paste0(varName,'.','down') 

    # assign the values to them in the current environment 
    assign(name.up,up.pval) 
    assign(name.down,down.pval) 

    # save the named variables 
    save(list=name.up, file=file.rda) 
    save(list=name.down,file=file.rda) 
} 

Кстати, file.rda должен вероятно быть аргументом, а не предполагая, что это уже определено