R/gen_category2.R

In 17ue052/synthpopJP:

#'Generate category variables based on two variables
#'
#'@param V1 first original variable of data to reference
#'@param V2 second original variable of data to reference
#'@param ref reference data name
#'@param V1_vname first reference variable
#'@param V2_vname second reference variable
#'
#'@return character
#'@description
#'
#'@export
gen_category2 <- function(V1, V2, ref, V1_vname, V2_vname){

  V1_vname <- rlang::sym(V1_vname)
  V2_vname <- rlang::sym(V2_vname)

  ref %>%
    dplyr::filter(!!(V1_vname) == V1) %>%
    dplyr::filter(!!(V2_vname) == V2) %>%
    dplyr::select(-!!(V2_vname)) %>%
    dplyr::select(-!!(V1_vname)) %>%
    t() %>% as.vector() -> rate

  ref %>%
    dplyr::select(-!!(V2_vname)) %>%
    dplyr::select(-!!(V1_vname)) %>%
    colnames() -> cate

  cate[which(as.logical(as.vector(stats::rmultinom(1, 1, rate))))]

}