make_yes_* need to keep labels

[RaymondBalise]

make_yes_no() and make_yes_no_unknown() functions currently throw away the labels. They need to be changed to be something like this:

make_yes_no_unknown <- function(x) {
  if (is.factor(x) | is.character(x)) {
    recoded <- 
    factor(dplyr::case_when(
      str_detect(x, stringr::regex("^yes", ignore_case = TRUE)) == TRUE ~ "Yes", 
      str_detect(x, stringr::regex("^checked", ignore_case = TRUE)) == TRUE ~ "Yes", 
      str_detect(x, stringr::regex("^no", ignore_case = TRUE)) == TRUE ~ "No", 
      str_detect(x, stringr::regex("^unchecked", ignore_case = TRUE)) == TRUE ~ "No", 
      TRUE ~ "Unknown"), levels = c("No", "Yes", "Unknown"))
  }
  else if (is.numeric(x) | is.logical(x)) {
    recoded <- 
    factor(dplyr::case_when(x == 1 ~ "Yes", x == 0 ~ "No", 
                            TRUE ~ "Unknown"), 
           levels = c("No", "Yes", "Unknown"))
  }
  else {
    recoded <- 
    x
  }
  
  if(labelVector::is_labelled(x)){
    labelVector::set_label(recoded, labelVector::get_label(x))
  }
}