deal with source_folder deprecation

Author: Your Name

R/add_dockerfiles_renv.R

@@ -28,6 +28,7 @@ add_dockerfile_with_renv_ <- function(
 
   check_dockerfiler_installed()
 
+
   if (is.null(lockfile)) {
     rlang::check_installed(
       c("renv", "attachment"),
@@ -159,7 +160,7 @@ add_dockerfile_with_renv_ <- function(
     from =
       paste0(
         get_golem_name(
-          pkg = source_folder
+          golem_wd = golem_wd
         ),
         "_*.tar.gz"
       ),
@@ -313,7 +314,7 @@ add_dockerfile_with_renv <- function(
   }
   if (is.null(dockerfile_cmd)) {
     dockerfile_cmd <- sprintf(
-      "R -e \"options('shiny.port'=%s,shiny.host='%s',golem.app.prod=%s);library(%3$s);%3$s::run_app()\"",
+      "R -e \"options('shiny.port'=%s,shiny.host='%s',golem.app.prod=%s);library(%4$s);%4$s::run_app()\"",
       port,
       host,
       set_golem.app.prod,
@@ -372,15 +373,15 @@ docker run -p %s:%s %s
 # then go to 127.0.0.1:%s",
       tolower(paste0(
         get_golem_name(
-          pkg = source_folder
+          golem_wd = golem_wd
         ),
         ":latest"
       )),
       port,
       port,
       tolower(paste0(
         get_golem_name(
-          pkg = source_folder
+          golem_wd = golem_wd
         ),
         ":latest"
       )),

tests/testthat/test-add_dockerfiles_renv.R

@@ -22,23 +22,34 @@ test_that("add_dockerfile_with_renv_ works", {
           dockerfile_with_renv <- add_dockerfile_with_renv_(
             golem_wd = dummy_golem,
             lockfile = "renv.lock.prod",
-            pkgbuild_quiet = TRUE
+            pkgbuild_quiet = TRUE,
+            output_dir=tempfile()
           )
 
           dockerfile_with_renv_output <- add_dockerfile_with_renv(
             golem_wd = dummy_golem,
             lockfile = "renv.lock.prod",
-            open = FALSE
+            open = FALSE,
+            output_dir=tempfile()
+          )
+          dockerfile_with_renv_output_dev <- add_dockerfile_with_renv(
+            set_golem.app.prod = FALSE,
+            golem_wd = dummy_golem,
+            lockfile = "renv.lock.prod",
+            open = FALSE,
+            output_dir=tempfile()
           )
           dockerfile_with_renv_shinyproxy_output <- add_dockerfile_with_renv_shinyproxy(
             golem_wd = dummy_golem,
             lockfile = "renv.lock.prod",
-            open = FALSE
+            open = FALSE,
+            output_dir=tempfile()
           )
           dockerfile_with_renv_heroku_output <- add_dockerfile_with_renv_heroku(
             golem_wd = dummy_golem,
             lockfile = "renv.lock.prod",
-            open = FALSE
+            open = FALSE,
+            output_dir=tempfile()
           )
         }
       )
@@ -55,6 +66,40 @@ test_that("add_dockerfile_with_renv_ works", {
       dockerfile_with_renv_output
     )
   )
+  expect_true(
+    file.exists(
+      dockerfile_with_renv_output_dev
+    )
+  )
+  expect_true(
+    file.exists(
+      file.path(dirname(dockerfile_with_renv_output),"Dockerfile")
+    )
+  )
+  expect_true(
+    file.exists(
+      file.path(dirname(dockerfile_with_renv_output_dev),"Dockerfile")
+    )
+  )
+
+dock <- readLines(file.path(dirname(dockerfile_with_renv_output),"Dockerfile"))
+
+  expect_true(
+    any(grepl("library\\(shinyexample\\)",dock))
+  )
+  expect_true(
+    any(grepl("golem.app.prod=TRUE",dock))
+  )
+dock_dev <- readLines(file.path(dirname(dockerfile_with_renv_output_dev),"Dockerfile"))
+
+  expect_true(
+    any(grepl("library\\(shinyexample\\)",dock_dev))
+  )
+  expect_true(
+    any(grepl("golem.app.prod=FALSE",dock_dev))
+  )
+
+
   expect_true(
     file.exists(
       dockerfile_with_renv_shinyproxy_output