for cli and rstudioapi functions, added to imports and added importFr…

…om in each function

DESCRIPTION

@@ -46,6 +46,8 @@ Imports:
     broom,
     patchwork,
     clipr,
+    cli,
+    rstudioapi,
     dplyr (>= 0.8.0),
     tidyr (>= 1.0.0),
     rlang (>= 0.4.0),

NAMESPACE

@@ -47,6 +47,7 @@ export(tab_univariate)
 export(unite_ci)
 export(zcurve)
 importFrom(apyramid,age_pyramid)
+importFrom(cli,cli_alert_success)
 importFrom(dplyr,count)
 importFrom(epidict,gen_data)
 importFrom(epidict,msf_dict)
@@ -99,6 +100,7 @@ importFrom(glue,glue)
 importFrom(rlang,"!!")
 importFrom(rlang,":=")
 importFrom(rlang,.data)
+importFrom(rstudioapi,selectDirectory)
 importFrom(scales,percent_format)
 importFrom(stats,setNames)
 importFrom(tibble,as_tibble)

R/download_kobo.R

@@ -4,6 +4,9 @@
 #'
 #' @param path **Run with no arguments to pick a directory interactively**. Path on your computer where the file(s) should be saved to *string*
 #'
+#' @importFrom rstudioapi selectDirectory
+#' @importFrom cli cli_alert_success
+#'
 #' @export
 download_kobo <- function(path = rstudioapi::selectDirectory()){
 

R/download_outbreak_linelist.R

@@ -4,6 +4,9 @@
 #'
 #' @param path **Run with no arguments to pick a directory interactively**. Path on your computer where the file(s) should be saved to *string*
 #'
+#' @importFrom rstudioapi selectDirectory
+#' @importFrom cli cli_alert_success
+#'
 #' @export
 download_outbreak_linelist <- function(path = rstudioapi::selectDirectory()){
 

R/download_outbreak_pop.R

@@ -4,6 +4,9 @@
 #'
 #' @param path **Run with no arguments to pick a directory interactively**. Path on your computer where the file(s) should be saved to *string*
 #'
+#' @importFrom rstudioapi selectDirectory
+#' @importFrom cli cli_alert_success
+#'
 #' @export
 download_outbreak_pop <- function(path = rstudioapi::selectDirectory()){
 

R/download_shape_block.R

@@ -4,6 +4,9 @@
 #'
 #' @param path **Run with no arguments to pick a directory interactively**. Path on your computer where the file(s) should be saved to *string*
 #'
+#' @importFrom rstudioapi selectDirectory
+#' @importFrom cli cli_alert_success
+#'
 #' @export
 download_shape_block <- function(path = rstudioapi::selectDirectory()){
 

R/download_shape_quartier.R

@@ -4,6 +4,9 @@
 #'
 #' @param path **Run with no arguments to pick a directory interactively**. Path on your computer where the file(s) should be saved to *string*
 #'
+#' @importFrom rstudioapi selectDirectory
+#' @importFrom cli cli_alert_success
+#'
 #' @export
 download_shape_quartier <- function(path = rstudioapi::selectDirectory()){
 

R/download_survey.R

@@ -4,6 +4,9 @@
 #'
 #' @param path **Run with no arguments to pick a directory interactively**. Path on your computer where the file(s) should be saved to *string*
 #'
+#' @importFrom rstudioapi selectDirectory
+#' @importFrom cli cli_alert_success
+#'
 #' @export
 download_survey <- function(path = rstudioapi::selectDirectory()){