clean up tests

NSAPH-Software · Mar 11, 2024 · b597afb · b597afb
1 parent 5d0f796
commit b597afb
Show file tree

Hide file tree

Showing 12 changed files with 2 additions and 476 deletions.
diff --git a/R/check_arguments.R b/R/check_arguments.R
diff --git a/R/estimate_gps.R b/R/estimate_gps.R
@@ -47,9 +47,6 @@ estimate_gps <- function(.data,
 
   start_time <- proc.time()
 
-  # Check passed arguments -----------------------------------------------------
-  check_args_estimate_gps(gps_density, ...)
-
   id_exist <- any(colnames(.data) %in% "id")
   if (!id_exist) stop(".data should include id column.")
 

diff --git a/R/generate_pseudo_pop.R b/R/generate_pseudo_pop.R
@@ -88,21 +88,9 @@ generate_pseudo_pop <- function(.data,
   # function call
   fcall <- match.call()
 
-  # Check arguments ----------------------------------------
-  # check_args(ci_appr, use_cov_transform, transformers,
-  #            gps_density, exposure_trim_qtls, ...)
-
   # Generate output set ------------------------------------
   counter <- 0
 
-  ## collect additional arguments
-  # dot_args <- list(...)
-  # arg_names <- names(dot_args)
-  #
-  # for (i in arg_names){
-  #   assign(i, unlist(dot_args[i], use.names = FALSE))
-  # }
-
   # collect exposure and covariate columns
   exposure_col <- cw_obj$params$exposure_col
   covariate_cols <- covariate_col_names

diff --git a/man/check_args.Rd b/man/check_args.Rd
diff --git a/man/check_args_compile_pseudo_pop.Rd b/man/check_args_compile_pseudo_pop.Rd
diff --git a/man/check_args_estimate_gps.Rd b/man/check_args_estimate_gps.Rd
diff --git a/man/check_args_use_cov_transformers.Rd b/man/check_args_use_cov_transformers.Rd