Note: not for use with rlang expressions (guesses variable names by text inspection).
See also: https://winvector.github.io/rquery/articles/AssigmentPartitioner.html.
factor_mutate(..., factor_mutate_warn_msg = TRUE)
| ... | mutate terms |
|---|---|
| factor_mutate_warn_msg | logical if TRUE issue a warning message on non-trivial mutates. |
partitioned dplyr::mutate() source text
cat(factor_mutate( choice_a = rand_a >= 0.5, a_1 = ifelse(choice_a, 'T', 'C'), a_2 = ifelse(choice_a, 'C', 'T'), choice_b = rand_b >= 0.5, b_1 = ifelse(choice_b, 'T', 'C'), b_2 = ifelse(choice_b, 'C', 'T'), choice_c = rand_c >= 0.5, c_1 = ifelse(choice_c, 'T', 'C'), c_2 = ifelse(choice_c, 'C', 'T'), choice_d = rand_d >= 0.5, d_1 = ifelse(choice_d, 'T', 'C'), d_2 = ifelse(choice_d, 'C', 'T'), choice_e = rand_e >= 0.5, e_1 = ifelse(choice_e, 'T', 'C'), e_2 = ifelse(choice_e, 'C', 'T'), factor_mutate_warn_msg = FALSE ))#> mutate(., choice_a = rand_a >= 0.5, #> choice_b = rand_b >= 0.5, #> choice_c = rand_c >= 0.5, #> choice_d = rand_d >= 0.5, #> choice_e = rand_e >= 0.5) %.>% #> mutate(., a_1 = ifelse(choice_a, "T", "C"), #> a_2 = ifelse(choice_a, "C", "T"), #> b_1 = ifelse(choice_b, "T", "C"), #> b_2 = ifelse(choice_b, "C", "T"), #> c_1 = ifelse(choice_c, "T", "C"), #> c_2 = ifelse(choice_c, "C", "T"), #> d_1 = ifelse(choice_d, "T", "C"), #> d_2 = ifelse(choice_d, "C", "T"), #> e_1 = ifelse(choice_e, "T", "C"), #> e_2 = ifelse(choice_e, "C", "T"))cat(factor_mutate( choice = rand_a >= 0.5, a_1 = ifelse(choice, 'T', 'C'), a_2 = ifelse(choice, 'C', 'T'), choice = rand_b >= 0.5, b_1 = ifelse(choice, 'T', 'C'), b_2 = ifelse(choice, 'C', 'T'), choice = rand_c >= 0.5, c_1 = ifelse(choice, 'T', 'C'), c_2 = ifelse(choice, 'C', 'T'), choice = rand_d >= 0.5, d_1 = ifelse(choice, 'T', 'C'), d_2 = ifelse(choice, 'C', 'T'), choice = rand_e >= 0.5, e_1 = ifelse(choice, 'T', 'C'), e_2 = ifelse(choice, 'C', 'T'), factor_mutate_warn_msg = FALSE))#> mutate(., choice = rand_a >= 0.5) %.>% #> mutate(., a_1 = ifelse(choice, "T", "C"), #> a_2 = ifelse(choice, "C", "T")) %.>% #> mutate(., choice = rand_b >= 0.5) %.>% #> mutate(., b_1 = ifelse(choice, "T", "C"), #> b_2 = ifelse(choice, "C", "T")) %.>% #> mutate(., choice = rand_c >= 0.5) %.>% #> mutate(., c_1 = ifelse(choice, "T", "C"), #> c_2 = ifelse(choice, "C", "T")) %.>% #> mutate(., choice = rand_d >= 0.5) %.>% #> mutate(., d_1 = ifelse(choice, "T", "C"), #> d_2 = ifelse(choice, "C", "T")) %.>% #> mutate(., choice = rand_e >= 0.5) %.>% #> mutate(., e_1 = ifelse(choice, "T", "C"), #> e_2 = ifelse(choice, "C", "T"))