R/fn_get.R

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

#' Get clone targets
#' @description get_clone_targets() is a Get function that extracts data from an object. Specifically, this function implements an algorithm to get clone targets. The function returns Clone targets (a character vector).
#' @param input_data_ls Input data (a list)
#' @param Sex_1L_chr Sex (a character vector of length one), Default: 'F'
#' @param Target_1L_chr Target (a character vector of length one), Default: 'AUS_SNR_F'
#' @return Clone targets (a character vector)
#' @rdname get_clone_targets
#' @export 
#' @importFrom dplyr filter pull
#' @keywords internal
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 number of decimals
#' @description get_nbr_of_decimals() is a Get function that extracts data from an object. Specifically, this function implements an algorithm to get number of decimals. The function is called for its side effects and does not return a value.
#' @param nbr_1L_dbl Number (a double vector of length one)
#' @return No return value, called for side effects.
#' @rdname get_nbr_of_decimals
#' @export 
#' @keywords internal
get_nbr_of_decimals <- function (nbr_1L_dbl) 
{
    nchar(strsplit(as.character(nbr_1L_dbl), "\\.")[[1]][2])
}