R/chmi.05_phen.argument_class.R

In mvazquezs/chmitools: Package to manage & obtain results of the CHMI Study

#--------------------------------
# chmi.05_phen.argument_class.R
#--------------------------------

### class variables & relevels----------------------------------------------------------------------

chmi.05_phen.arg_class_ab_data <- function(dat)
{
### list of variables 
	l_fact <- chmi.all_names.class_vars()[['factor_levels']]
	l_chr <- chmi.all_names.class_vars()[['character_vars']]
	l_dbl <- chmi.all_names.class_vars()[['double_vars']]
	l_int <- chmi.all_names.class_vars()[['integer_vars']]


### avoid warnings() messages in 'chmi.05_phen.arg_class_ab_data()'
## Warning messages:
## 1: In ~as.numeric(as.character(.)) : NAs introduced by coercion
## 2: In ~as.numeric(as.character(.)) : NAs introduced by coercion
	options(warn = -1)

	
### update 'data'
	dat <- dat %>%
		mutate_at(vars(any_of(l_fact)), ~ as.factor(.)) %>%
		mutate_at(vars(any_of(l_chr)), ~ as.character(.)) %>%
		mutate_at(vars(any_of(l_dbl)), ~ as.numeric(as.character(.))) %>%
		mutate_at(vars(any_of(l_int)), ~ as.integer(.))


### return
	return(dat)
}