autoimport

DanChaltiel · Jun 30, 2024 · 7832a06 · 7832a06
1 parent d307315
commit 7832a06
Show file tree

Hide file tree

Showing 4 changed files with 10 additions and 5 deletions.
diff --git a/R/ae_table_soc.R b/R/ae_table_soc.R
@@ -52,7 +52,6 @@
 #' @importFrom purrr discard iwalk keep map
 #' @importFrom rlang check_dots_empty ensym is_empty set_names
 #' @importFrom stringr str_remove str_replace
-#' @importFrom testthat expect_false
 #' @importFrom tibble deframe lst
 #' @importFrom tidyr pivot_wider
 ae_table_soc = function(

diff --git a/R/crf_status.R b/R/crf_status.R
@@ -26,6 +26,13 @@
 #' #> [1] "Incomplete"        "No Data Locked"    "No Data"           "Signed"           
 #' #> [5] "Partial Monitored" "Monitored"         "Complete Locked"   "Complete" 
 #' }
+#' @importFrom dplyr count last mutate select
+#' @importFrom forcats fct_reorder2 fct_rev
+#' @importFrom ggplot2 aes geom_col ggplot labs position_fill scale_fill_manual scale_x_continuous
+#' @importFrom purrr list_rbind map
+#' @importFrom scales label_percent
+#' @importFrom stringr str_subset
+#' @importFrom tibble tibble
 crf_status_plot = function(crfstat_col="CRFSTAT", 
                       pal = edc_crf_pal(), 
                       crfstat_lvls = names(pal), 
@@ -77,4 +84,3 @@ edc_crf_pal = function(){
     "Incomplete"="#ED0000FF"
   )
 }
-
diff --git a/R/options.R b/R/options.R
@@ -22,7 +22,7 @@
 #' @param .local  if TRUE, the effect will only apply to the local frame (internally using `rlang::local_options()`)
 #'
 #' @return Nothing, called for its side effects
-#' @importFrom rlang caller_env check_dots_empty have_name local_options
+#' @importFrom rlang caller_env check_dots_empty have_name
 #' @export
 edc_options = function(
     ...,

diff --git a/R/utils.R b/R/utils.R
@@ -85,7 +85,7 @@ get_folder_datetime = function(folder, verbose=TRUE){
   mtime=NULL
   rtn = dir(folder, full.names=TRUE) %>% file.info() %>% count(mtime=round(mtime, "secs"))
   if(isTRUE(verbose) && nrow(rtn)>1){
-    cli::cli_warn(c("Folder {.file {folder}} contains files with different modification times. 
+    cli_warn(c("Folder {.file {folder}} contains files with different modification times. 
                     The most frequent one was returned.", 
                     i="Times: {.val {rtn$mtime}}"),
                   class="get_folder_datetime_modiftime_warning")
@@ -338,6 +338,6 @@ init_project = function(path){
   usethis::create_project(open=FALSE)
   usethis::use_template("project-README", "README.md", data = data, open = TRUE)
   usethis::use_template("NEWS.md", data = data, open = TRUE)
+  usethis::use_blank_slate(scope="project")
   #TODO: see ?usethis::use_template for custom templates
 }
-