mirror of
https://github.com/agdamsbo/daDoctoR.git
synced 2024-11-24 20:51:54 +01:00
26 lines
543 B
R
26 lines
543 B
R
#' Formatting multiple columns as numeric
|
|
#'
|
|
#' Depending on dply's contains()-function.
|
|
#' @param string Columnnames containg strings.
|
|
#' @param data Dataframe
|
|
#' @keywords numeric
|
|
#' @export
|
|
|
|
col_num<-function(string,data){
|
|
## Defining factors for columns containing string (can be vector of multiple strings), based on dplyr
|
|
|
|
require(dplyr)
|
|
d<-data
|
|
s<-string
|
|
n<-c()
|
|
|
|
for(i in 1:length(s)){
|
|
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]])
|
|
}
|
|
return(d)
|
|
}
|