andreas/daDoctoR
1
0
Fork 0
mirror of https://github.com/agdamsbo/daDoctoR.git synced 2024-11-22 03:40:23 +01:00
Code Issues Projects Releases Wiki Activity

resolved function overlap

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
R/col_fact.R
View File

@ -14,27 +14,27 @@
col_fact<-function(string,data,levels=NULL,labels=NULL){
## Defining factors for columns containing string (can be vector of multiple strings), based on dplyr.
## Factoring several columns with same levels or labels, these can be provided.
require(dplyr)
d<-data
s<-string
n<-c()
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)){
for(i in 1:length(n)) {
d[,n[i]]<-factor(d[,n[i]],levels=levels)}}
if (!is.null(labels)){
if (!is.null(labels)){
for(i in 1:length(n)) {
d[,n[i]]<-factor(d[,n[i]],labels=labels)
}}
else
else
for(i in 1:length(n)) {
d[,n[i]]<-factor(d[,n[i]])}
return(d)
}

6
R/col_num.R
View File

@ -15,11 +15,11 @@ col_num<-function(string,data){
d<-data
s<-string
n<-c()
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)) {
d[,n[i]]<-as.numeric(d[,n[i]])
}