fix gene selection bug

stemangiola · stemangiola · commit 4444341c194e · 2019-09-03T23:38:01.000+10:00
diff --git a/R/ppcSeq.R b/R/ppcSeq.R
@@ -448,6 +448,7 @@ merge_results = function(res_discovery, res_test, formula, gene_column, value_co
 # Ouyput: tibble
 select_to_check_and_house_keeping = function(input.df, do_check_column, significance_column, gene_column, how_many_negative_controls){
 	input.df %>%
+		{
 		bind_rows(
 			# Genes to check
 			(.) %>%
@@ -465,6 +466,7 @@ select_to_check_and_house_keeping = function(input.df, do_check_column, signific
 					by = quo_name(gene_column)
 				)
 		)
+	}
 }
 
 run_model = function(model, full_bayes, chains, how_many_posterior_draws, inits_fx, tol_rel_obj, additional_parameters_to_save){

Original file line number	Diff line number	Diff line change
`@@ -448,6 +448,7 @@ merge_results = function(res_discovery, res_test, formula, gene_column, value_co`
`448`	`448`	`# Ouyput: tibble`
`449`	`449`	`select_to_check_and_house_keeping = function(input.df, do_check_column, significance_column, gene_column, how_many_negative_controls){`
`450`	`450`	`input.df %>%`
	`451`	`+ {`
`451`	`452`	`bind_rows(`
`452`	`453`	`# Genes to check`
`453`	`454`	`(.) %>%`
`@@ -465,6 +466,7 @@ select_to_check_and_house_keeping = function(input.df, do_check_column, signific`
`465`	`466`	`by = quo_name(gene_column)`
`466`	`467`	`)`
`467`	`468`	`)`
	`469`	`+ }`
`468`	`470`	`}`
`469`	`471`
`470`	`472`	`run_model = function(model, full_bayes, chains, how_many_posterior_draws, inits_fx, tol_rel_obj, additional_parameters_to_save){`