passing ellipsis arguments to map function purrr package, R
I want to use ellipsis parameters inside map function of purrr package. this is a toy example: f1<-function(x,a=NA,b=NA,prs=seq(0, 1, 0.25),SW=T){ if(SW){ res<-data.frame(name1=a,name2=b,t(quantile(x, prs, na.rm = T)), mean=mean(x, na.rm = T), sd=sd(x, na.rm = T), NAs=length(x[is.na(x)]),n=length(x[!is.na(x)]),SWp=shapiro.test(x)$p.value,stringsAsFactors =F) }else { res<-data.frame(name1=a,name2=b,t(quantile(x, prs, na.rm = T)), mean=mean(x, na.rm = T), sd=sd(x, na.rm = T), NAs=length(x[is.na(x)]),n=length(x[!is.na(x)]),stringsAsFactors =F) } return(res) } f1(c(NA,rnorm(25),NA),SW=F) f1(c(NA