resolved function overlap

This commit is contained in:
agdamsbo 2018-10-09 14:27:07 +02:00
parent 800b4e8199
commit 512ac511a3
2 changed files with 10 additions and 10 deletions

View File

@ -21,7 +21,7 @@ col_fact<-function(string,data,levels=NULL,labels=NULL){
n<-c() n<-c()
for(i in 1:length(s)){ for(i in 1:length(s)){
n<-c(n,names(select(d,contains(s[i])))) n<-c(n,names(dplyr::select(d,dplyr::contains(s[i]))))
} }
if (!is.null(levels)){ if (!is.null(levels)){

View File

@ -17,7 +17,7 @@ col_num<-function(string,data){
n<-c() n<-c()
for(i in 1:length(s)){ for(i in 1:length(s)){
n<-c(n,names(select(d,contains(s[i])))) n<-c(n,names(dplyr::select(d,dplyr::contains(s[i]))))
} }
for(i in 1:length(n)) { for(i in 1:length(n)) {