fix: use_internal_file doesnt strip the extension anymore

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: golem
 Title: A Framework for Robust Shiny Applications
-Version: 0.5.1.9001
+Version: 0.5.1.9002
 Authors@R: c(
     person("Colin", "Fay", , "[email protected]", role = c("cre", "aut"),
            comment = c(ORCID = "0000-0001-7343-1846")),

NEWS.md

@@ -4,13 +4,13 @@
 
 ## Breaking change
 
-- The use_*_files now fail when:
+- The `add_*_files` and `use_*_files` now fail when:
   - The directory where the user tries to add the file doesn't exist. `{golem}` used to try to create the directory but that's not the function job — use_*_file functions should only be there to add file (Singe responsabily  )
   - The file that the user tries to create already exists
 
 ## Internal changes
 
-- Full refactoring of the use_*_files functions that now all share the same behavior
+- Full refactoring of the `add_*_files` and `use_*_files` functions that now all share the same behavior
 
 # golem 0.5.1
 

R/add_dockerfiles.R

@@ -83,25 +83,26 @@ talk_once <- function(.f, msg = "") {
 #' }
 #' @return The `{dockerfiler}` object, invisibly.
 add_dockerfile <- function(
-    path = "DESCRIPTION",
-    output = "Dockerfile",
-    pkg = get_golem_wd(),
-    from = paste0(
-      "rocker/verse:",
-      R.Version()$major,
-      ".",
-      R.Version()$minor
-    ),
-    as = NULL,
-    port = 80,
-    host = "0.0.0.0",
-    sysreqs = TRUE,
-    repos = c(CRAN = "https://cran.rstudio.com/"),
-    expand = FALSE,
-    open = TRUE,
-    update_tar_gz = TRUE,
-    build_golem_from_source = TRUE,
-    extra_sysreqs = NULL) {
+  path = "DESCRIPTION",
+  output = "Dockerfile",
+  pkg = get_golem_wd(),
+  from = paste0(
+    "rocker/verse:",
+    R.Version()$major,
+    ".",
+    R.Version()$minor
+  ),
+  as = NULL,
+  port = 80,
+  host = "0.0.0.0",
+  sysreqs = TRUE,
+  repos = c(CRAN = "https://cran.rstudio.com/"),
+  expand = FALSE,
+  open = TRUE,
+  update_tar_gz = TRUE,
+  build_golem_from_source = TRUE,
+  extra_sysreqs = NULL
+) {
   add_dockerfile_(
     path = path,
     output = output,
@@ -122,26 +123,26 @@ add_dockerfile <- function(
 
 add_dockerfile_ <- talk_once(
   function(
-      path = "DESCRIPTION",
-      output = "Dockerfile",
-      pkg = get_golem_wd(),
-      from = paste0(
-        "rocker/verse:",
-        R.Version()$major,
-        ".",
-        R.Version()$minor
-      ),
-      as = NULL,
-      port = 80,
-      host = "0.0.0.0",
-      sysreqs = TRUE,
-      repos = c(CRAN = "https://cran.rstudio.com/"),
-      expand = FALSE,
-      open = TRUE,
-      update_tar_gz = TRUE,
-      build_golem_from_source = TRUE,
-      extra_sysreqs = NULL
-) {
+  path = "DESCRIPTION",
+  output = "Dockerfile",
+  pkg = get_golem_wd(),
+  from = paste0(
+    "rocker/verse:",
+    R.Version()$major,
+    ".",
+    R.Version()$minor
+  ),
+  as = NULL,
+  port = 80,
+  host = "0.0.0.0",
+  sysreqs = TRUE,
+  repos = c(CRAN = "https://cran.rstudio.com/"),
+  expand = FALSE,
+  open = TRUE,
+  update_tar_gz = TRUE,
+  build_golem_from_source = TRUE,
+  extra_sysreqs = NULL
+  ) {
     where <- fs_path(pkg, output)
 
     usethis_use_build_ignore(
@@ -190,23 +191,24 @@ add_dockerfile_ <- talk_once(
 #' @export
 #' @rdname dockerfiles
 add_dockerfile_shinyproxy <- function(
-    path = "DESCRIPTION",
-    output = "Dockerfile",
-    pkg = get_golem_wd(),
-    from = paste0(
-      "rocker/verse:",
-      R.Version()$major,
-      ".",
-      R.Version()$minor
-    ),
-    as = NULL,
-    sysreqs = TRUE,
-    repos = c(CRAN = "https://cran.rstudio.com/"),
-    expand = FALSE,
-    open = TRUE,
-    update_tar_gz = TRUE,
-    build_golem_from_source = TRUE,
-    extra_sysreqs = NULL) {
+  path = "DESCRIPTION",
+  output = "Dockerfile",
+  pkg = get_golem_wd(),
+  from = paste0(
+    "rocker/verse:",
+    R.Version()$major,
+    ".",
+    R.Version()$minor
+  ),
+  as = NULL,
+  sysreqs = TRUE,
+  repos = c(CRAN = "https://cran.rstudio.com/"),
+  expand = FALSE,
+  open = TRUE,
+  update_tar_gz = TRUE,
+  build_golem_from_source = TRUE,
+  extra_sysreqs = NULL
+) {
   add_dockerfile_shinyproxy_(
     path = path,
     output = output,
@@ -225,23 +227,24 @@ add_dockerfile_shinyproxy <- function(
 
 add_dockerfile_shinyproxy_ <- talk_once(
   function(
-      path = "DESCRIPTION",
-      output = "Dockerfile",
-      pkg = get_golem_wd(),
-      from = paste0(
-        "rocker/verse:",
-        R.Version()$major,
-        ".",
-        R.Version()$minor
-      ),
-      as = NULL,
-      sysreqs = TRUE,
-      repos = c(CRAN = "https://cran.rstudio.com/"),
-      expand = FALSE,
-      open = TRUE,
-      update_tar_gz = TRUE,
-      build_golem_from_source = TRUE,
-      extra_sysreqs = NULL) {
+  path = "DESCRIPTION",
+  output = "Dockerfile",
+  pkg = get_golem_wd(),
+  from = paste0(
+    "rocker/verse:",
+    R.Version()$major,
+    ".",
+    R.Version()$minor
+  ),
+  as = NULL,
+  sysreqs = TRUE,
+  repos = c(CRAN = "https://cran.rstudio.com/"),
+  expand = FALSE,
+  open = TRUE,
+  update_tar_gz = TRUE,
+  build_golem_from_source = TRUE,
+  extra_sysreqs = NULL
+  ) {
     where <- fs_path(pkg, output)
 
     usethis_use_build_ignore(output)
@@ -282,23 +285,24 @@ add_dockerfile_shinyproxy_ <- talk_once(
 #' @export
 #' @rdname dockerfiles
 add_dockerfile_heroku <- function(
-    path = "DESCRIPTION",
-    output = "Dockerfile",
-    pkg = get_golem_wd(),
-    from = paste0(
-      "rocker/verse:",
-      R.Version()$major,
-      ".",
-      R.Version()$minor
-    ),
-    as = NULL,
-    sysreqs = TRUE,
-    repos = c(CRAN = "https://cran.rstudio.com/"),
-    expand = FALSE,
-    open = TRUE,
-    update_tar_gz = TRUE,
-    build_golem_from_source = TRUE,
-    extra_sysreqs = NULL) {
+  path = "DESCRIPTION",
+  output = "Dockerfile",
+  pkg = get_golem_wd(),
+  from = paste0(
+    "rocker/verse:",
+    R.Version()$major,
+    ".",
+    R.Version()$minor
+  ),
+  as = NULL,
+  sysreqs = TRUE,
+  repos = c(CRAN = "https://cran.rstudio.com/"),
+  expand = FALSE,
+  open = TRUE,
+  update_tar_gz = TRUE,
+  build_golem_from_source = TRUE,
+  extra_sysreqs = NULL
+) {
   add_dockerfile_heroku_(
     path = path,
     output = output,
@@ -317,23 +321,24 @@ add_dockerfile_heroku <- function(
 
 add_dockerfile_heroku_ <- talk_once(
   function(
-      path = "DESCRIPTION",
-      output = "Dockerfile",
-      pkg = get_golem_wd(),
-      from = paste0(
-        "rocker/verse:",
-        R.Version()$major,
-        ".",
-        R.Version()$minor
-      ),
-      as = NULL,
-      sysreqs = TRUE,
-      repos = c(CRAN = "https://cran.rstudio.com/"),
-      expand = FALSE,
-      open = TRUE,
-      update_tar_gz = TRUE,
-      build_golem_from_source = TRUE,
-      extra_sysreqs = NULL) {
+  path = "DESCRIPTION",
+  output = "Dockerfile",
+  pkg = get_golem_wd(),
+  from = paste0(
+    "rocker/verse:",
+    R.Version()$major,
+    ".",
+    R.Version()$minor
+  ),
+  as = NULL,
+  sysreqs = TRUE,
+  repos = c(CRAN = "https://cran.rstudio.com/"),
+  expand = FALSE,
+  open = TRUE,
+  update_tar_gz = TRUE,
+  build_golem_from_source = TRUE,
+  extra_sysreqs = NULL
+  ) {
     where <- fs_path(pkg, output)
 
     usethis_use_build_ignore(output)

R/add_dockerfiles_renv.R

@@ -416,9 +416,7 @@ add_dockerfile_with_renv_heroku <- function(
     "README"
   )
 
-  write_there <- function(...) {
-    write(..., file = readme_output, append = TRUE)
-  }
+  write_there <- write_there_builder(readme_output)
 
   write_there("From your command line, run:\n")