use_file: Copies local file to app/www

NAMESPACE

@@ -57,6 +57,7 @@ export(use_external_file)
 export(use_external_html_template)
 export(use_external_js_file)
 export(use_favicon)
+export(use_file)
 export(use_recommended_deps)
 export(use_recommended_tests)
 export(use_utils_server)

R/use_files.R

@@ -4,6 +4,7 @@
 #' 
 #' @inheritParams  add_module
 #' @param url String representation of URL for the file to be downloaded
+#' @param path String representation of the local path for the file to be implemented (use_file only)
 #' @param dir Path to the dir where the file while be created.
 #' @note See `?htmltools::htmlTemplate` and `https://shiny.rstudio.com/articles/templates.html` for more information about `htmlTemplate`.
 #' @export
@@ -240,3 +241,49 @@ use_external_file <- function(
   cat_downloaded(where)
 
 }
+
+#' @export
+#' @rdname use_file
+#' @importFrom fs path_abs file_exists
+use_file <- function(
+  path,
+  name,
+  pkg = get_golem_wd(), 
+  dir = "inst/app/www",
+  open = FALSE, 
+  dir_create = TRUE
+){
+  if (missing(name)){
+    name <- basename(path)
+  }
+
+  old <- setwd(path_abs(pkg))  
+  on.exit(setwd(old))
+
+  dir_created <- create_if_needed(
+    dir, type = "directory"
+  )
+
+  if (!dir_created){
+    cat_dir_necessary()
+    return(invisible(FALSE))
+  }
+
+  dir <- path_abs(dir) 
+
+  where <- path(
+    dir, name
+  )
+
+  if (file_exists(where)){
+    cat_exists(where)
+    return(invisible(FALSE))
+  }
+
+  cat_start_copy()
+
+  file.copy(path, where)
+
+  cat_copied(where)
+
+}

R/utils.R

@@ -167,6 +167,24 @@ cat_downloaded <- function(
   )
 }
 
+cat_start_copy <- function(){
+  cat_line("")
+  cat_rule("Copying file")
+}
+
+cat_copied <- function(
+  where,
+  file = "File"
+){
+  cat_green_tick(
+    sprintf(
+      "%s copied to %s",
+      file,
+      where
+    )
+  )
+}
+
 cat_created <- function(
   where, 
   file = "File"