R 如何获得与参数函数具有相同前缀的输出

发布于09月23日

我想要获取函数的输入参数，以在全局环境中创建具有相同前缀的输出

fun_mtcars <- function(name_ref,...){
  df <- name_ref %>% 
    select(mpg,...) 
  .GlobalEnv$selec_name_ref <- df
}

趣味_mtcar(mtcar，disp)

在GLOBAL环境中，创建了一个名为"selec_name_ref"的新数据框，但我想要一个名为"selec_mtars"的数据框

I can do selec_mtcars <- 趣味_mtcar(mtcar，disp)
but I have a lot of function to execute

推荐答案

我们可以将对象名称提取为带有deparse/substitute的字符串，并在paste中使用该字符串创建新对象，并使用[[而不是$将其分配给.GlobalEnv

fun_mtcars <- function(name_ref,...){
name_ref_str <- deparse(substitute(name_ref))
  df <- name_ref %>% 
    select(mpg,...) 
  .GlobalEnv[[paste0("select_", name_ref_str)]] <- df
}

-正在判断

fun_mtcars(mtcars,disp)
> head(select_mtcars)
                   mpg disp
Mazda RX4         21.0  160
Mazda RX4 Wag     21.0  160
Datsun 710        22.8  108
Hornet 4 Drive    21.4  258
Hornet Sportabout 18.7  360
Valiant           18.1  225