R/ted_con_prep.R

In TSwork/TSpack: Ted Needs A Raise

#' Prepares data for multiple item likelihood questions
#'
#' \code{ted_con_prep} returns a tibble of a given multiple level confidence question,
#'     prepared for tables or graphs.
#'
#' This is an NACD function: Should you experience difficulties, see Ted Sikora
#'
#' @param .df An imported dataframe
#' @param .dd A data dictionary
#' @param .x A question number
#' @param .l The three level names
#' @return A tibble
#'
#' @examples
#' ted_con_prep(df, dd, Q29, c("Likely", "Neither likely nor unlikely", "Unlikely"))
#'
#' @importFrom magrittr %>%
#' @export
ted_con_prep <- function (.df, .dd, .x, .l){
  v <- rlang::enquo(.x)
  q <- rlang::quo_name(v)
  labs <- tibble::tibble(title = .dd[.dd$qnames == q, c("title")][[1]], labs = .dd[.dd$qnames == q, c("value")][[1]], qvar = .dd[.dd$qnames == q, c("name")][[1]])
  if (!(missing(.l))) {

    .temp <- tcon(.df, .dd, q, .l, labs)
  }
  .temp
}