diff --git a/R/assign.R b/R/assign.R index d381f79..57f3b0e 100644 --- a/R/assign.R +++ b/R/assign.R @@ -42,7 +42,6 @@ sdtm_assign <- function(tgt_dat = NULL, ct_spec = NULL, ct_clst = NULL, id_vars = oak_id_vars()) { - admiraldev::assert_character_scalar(raw_var) admiraldev::assert_character_scalar(tgt_var) admiraldev::assert_character_vector(id_vars) @@ -66,7 +65,6 @@ sdtm_assign <- function(tgt_dat = NULL, mutate("{tgt_var}" := tgt_val) |> # nolint object_name_linter() dplyr::select(-dplyr::any_of(setdiff(raw_var, tgt_var))) |> dplyr::relocate(dplyr::all_of(tgt_var), .after = dplyr::last_col()) - } #' Derive an SDTM variable @@ -185,7 +183,6 @@ assign_no_ct <- function(tgt_dat = NULL, raw_dat, raw_var, id_vars = oak_id_vars()) { - admiraldev::assert_character_scalar(raw_var) admiraldev::assert_character_scalar(tgt_var) admiraldev::assert_character_vector(id_vars) @@ -214,7 +211,6 @@ assign_ct <- function(tgt_dat = NULL, ct_spec, ct_clst, id_vars = oak_id_vars()) { - admiraldev::assert_character_scalar(raw_var) admiraldev::assert_character_scalar(tgt_var) admiraldev::assert_character_vector(id_vars)