Separating vector into two columns with dplyr mutate

Question

Let\'s say I have the following function

get_answer <- function(condition, dp, rp){
  if(condition == "DD"){
    result <- rbinom(n = 2, size