data-raw/fns/get.R

In ready4-dev/bimp: Undertake Health Economic Budget Impact Analysis.

get_clone_targets <- function(input_data_ls,
                              Sex_1L_chr = "F",
                              Target_1L_chr = "AUS_SNR_F"){
  clone_targets_chr <- input_data_ls$recipients_tb %>%
    dplyr::filter(Sex_chr == Sex_1L_chr) %>%
    dplyr::filter(Recipient_UID_chr != Target_1L_chr) %>%
    dplyr::pull(Recipient_UID_chr)
  return(clone_targets_chr)
}
get_nbr_of_decimals <- function(nbr_1L_dbl){ # From: https://stackoverflow.com/questions/5173692/how-to-return-number-of-decimal-places-in-r
  nchar(strsplit(as.character(nbr_1L_dbl), "\\.")[[1]][2])
}