feat: adds assertion to exported functions

atorus-research · Nov 23, 2023 · 507d3f9 · 507d3f9
1 parent 7ac63d2
commit 507d3f9
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 2 deletions.
diff --git a/R/messages.R b/R/messages.R
@@ -10,6 +10,9 @@
 #' @return Output to Console
 #' @export
 xportr_logger <- function(message, type = "none", ...) {
+  assert_character(message)
+  assert_choice(verbose, choices = .internal_verbose_choices)
+
   log_fun <- switch(type,
     stop = abort,
     warn = warn,
@@ -28,6 +31,9 @@ xportr_logger <- function(message, type = "none", ...) {
 #' @return Output to Console
 #' @export
 var_names_log <- function(tidy_names_df, verbose) {
+  assert_data_frame(tidy_names_df)
+  assert_choice(verbose, choices = .internal_verbose_choices)
+
   only_renames <- tidy_names_df %>%
     filter(original_varname != renamed_var) %>%
     mutate(

diff --git a/R/utils-xportr.R b/R/utils-xportr.R
@@ -184,6 +184,8 @@ xpt_validate_var_names <- function(varnames,
 #'
 #' @export
 xpt_validate <- function(data) {
+  assert_data_frame(data)
+
   err_cnd <- character()
 
   # 1.0 VARIABLES ----
@@ -310,8 +312,6 @@ xpt_validate <- function(data) {
 #' @return A string representing the domain
 #' @noRd
 get_domain <- function(.df, df_arg, domain) {
-  assert_string(domain, null.ok = TRUE)
-
   if (identical(df_arg, ".")) {
     df_arg <- get_pipe_call()
   }