Added conversion factors in documentation

DESCRIPTION

@@ -30,6 +30,7 @@ Imports:
     lifecycle (>= 0.1.0),
     lubridate (>= 1.7.4),
     magrittr (>= 1.5),
+    purrr (>= 0.3.3),
     rlang (>= 0.4.4),
     tidyselect (>= 1.0.0)
 Suggests:

NAMESPACE

@@ -70,6 +70,7 @@ importFrom(lubridate,years)
 importFrom(lubridate,ymd)
 importFrom(lubridate,ymd_hms)
 importFrom(magrittr,"%>%")
+importFrom(purrr,discard_at)
 importFrom(rlang,"%||%")
 importFrom(rlang,":=")
 importFrom(rlang,.data)
@@ -125,6 +126,7 @@ importFrom(stringr,str_c)
 importFrom(stringr,str_detect)
 importFrom(stringr,str_extract)
 importFrom(stringr,str_glue)
+importFrom(stringr,str_glue_data)
 importFrom(stringr,str_remove)
 importFrom(stringr,str_remove_all)
 importFrom(stringr,str_replace)

R/admiralmetabolic-package.R

@@ -11,6 +11,7 @@
 #'             starts_with transmute ungroup vars n_distinct union distinct
 #'             summarise_at summarise coalesce bind_cols na_if tibble tribble
 #' @importFrom magrittr %>%
+#' @importFrom purrr discard_at
 #' @importFrom rlang := %||% abort arg_match as_function as_string call2 caller_env
 #'             call_name current_env .data enexpr enexprs enquo eval_bare eval_tidy expr
 #'             exprs expr_interp expr_label f_lhs f_rhs inform
@@ -21,7 +22,7 @@
 #'             set_names sym syms type_of warn quo_set_env quo_get_env
 #' @importFrom utils capture.output str
 #' @importFrom stringr str_c str_detect str_extract str_remove str_remove_all
-#'             str_replace str_trim str_to_lower str_to_title str_to_upper str_glue
+#'             str_replace str_trim str_to_lower str_to_title str_to_upper str_glue str_glue_data
 #' @importFrom lubridate as_datetime ceiling_date date days duration floor_date is.Date is.instant
 #'             time_length %--% ymd ymd_hms weeks years hours minutes
 #' @importFrom tidyselect all_of contains vars_select

R/derive_advs_params.R

@@ -455,7 +455,12 @@ derive_param_waisthgt <- function(dataset,
 #'   convertible (e.g., centimeters for one parameter and inches for another), an automatic
 #'   conversion will be performed in order to uniform the values before calculating the ratio.
 #'
-#'   **Note:** Conversion factors come from unit definitions as per the NCI Thesaurus.
+#'   **Note:** Conversion factors come from unit definitions as per CDISC standards.
+#'   ```{r, echo = FALSE, comment = "", results = "asis"}
+#'   get_conv_factors_all()[["length"]] %>%
+#'     discard_at("cm") %>%
+#'     str_glue_data("<br/>*{names(.)}* is defined as {.} cm")
+#'   ```
 #'
 #'   *Permitted Values:* A variable of the input dataset or a function call
 #'
@@ -609,7 +614,7 @@ get_conv_factor <- function(from_unit, to_unit) {
 
 #' @description `get_conv_factors_all()` returns all conversion factors supported.
 #'
-#' **Note:** Conversion factors come from unit definitions as per the NCI Thesaurus.
+#' **Note:** Conversion factors come from unit definitions as per CDISC standards.
 #'
 #' @rdname unit-conversion
 #' @keywords internal

inst/WORDLIST

@@ -38,6 +38,5 @@ roxygen
 advs
 PARAMCD
 prm
-NCI
 admiraldev
 github