APPLY函数出BUG了，悬赏求大神解答-经管之家官网！

事情起因是我希望写一个Summary函数，用来统计一个dataframe里每列数的均值、标准差、2分位数、4分位数等，再统一输出到df表里，代码如下：
getSummary<-function(dataframe,scope){
dataframe<-as.data.frame(dataframe)
df<-data.frame(matrix(numeric(),ncol(dataframe),length(scope)+1,dimnames=list(c(),c("Indexname",scope))))
df$Indexname<-names(dataframe)
for(i in 1:length(scope)){
df[,i+1]<-switch(scope,
Mean=apply(dataframe,2,function(x){mean(x,na.rm=TRUE)}),
SD=apply(dataframe,2,function(x){sd(x,na.rm=TRUE)}),
ifelse(grep("Quantile",scope)==1,
apply(dataframe,2,function(x){quantile(x,as.numeric(gsub("[^0-9]","",scope))/100,na.rm=TRUE)})
,NA)
)
}
return(df)
}
scope <- c("Mean", "SD", "X20Quantile","X40Quantile","X60Quantile","X80Quantile")
dSFA<-getSummary(dataframe,scope)
然而，最后的结果却出现，dataframe每列数的2、4、6、8分位数都是一样的，即都等于dataframe第一列的2、4、6、8分位数如截图
https://pic.bbs.jg.com.cn/forum/201709/15/00232379b43ggh9gz73zb8.png
27 分钟前 上传
下载附件 (22.63 KB)
。而如果我把代码简单化，改成X20Quantile= apply(dataframe,2,function(x){quantile(x,as.numeric(gsub("[^0-9]","",scope))/100,na.rm=TRUE)})，结果是对的如截图
https://pic.bbs.jg.com.cn/forum/201709/15/003221prgqq0rrcplgovqr.png
18 分钟前 上传
下载附件 (8.62 KB)
。有些怀疑人生，万能的贴吧大神，请问问题出在哪里？？？

「经管之家」APP：经管人学习、答疑、交友，就上经管之家！
免流量费下载资料----在经管之家app可以下载论坛上的所有资源，并且不额外收取下载高峰期的论坛币。
涵盖所有经管领域的优秀内容----覆盖经济、管理、金融投资、计量统计、数据分析、国贸、财会等专业的学习宝库，各类资料应有尽有。
来自五湖四海的经管达人----已经有上千万的经管人来到这里，你可以找到任何学科方向、有共同话题的朋友。
经管之家（原人大经济论坛），跨越高校的围墙，带你走进经管知识的新世界。
扫描下方二维码下载并注册APP