R/InputToReactiveValue.R

In irisweyermenkhoff/toyota-idv-functions: Risk Reporting and Toolbox Calculation Functions

InputToReactiveValue <- function(input_name, reactive_name){
	
#	quo_input_name = deparse(substitute(input_name))
	
	if(is.null(input_name)){
		return() 
	} 
	
	
	
 c(input_name) %>% 
	purrr::map( ~ reactive_name[[.x]]) %>%
	set_names(c(input_name))



}