我只是一个关于案例的简单问题,我想用一个字符作为自创函数的参数。
我有三个时间序列集。让我们说a_ts,b_ts和c_ts我希望将a或b与c合并,具体取决于函数Input。
foo <-function(type){
total_series <- rbind(type_ts,c_ts)
return(total_series)
}
类型为type =“a”,type =“b”。
让我们说我不想改变角色名称。如何解决问题,即函数中的引号不打印。
我想要rbind(a_ts,c_ts)或rbind(b_ts,c_ts),而不是在我的角色参数周围加上引号。
感谢您的帮助。
答案 0 :(得分:0)
如果我理解正确的话,那就是你需要的东西:
foo <- function(obj1, type) {
obj2 <- paste0(type, "_ts")
total_series <- rbind(obj1, get(obj2, envir = .GlobalEnv))
return(total_series)
}