Update tests/testthat/test-add_dockerfiles_renv.R

VincentGuyader · github-actions[bot] · web-flow · commit 3d819b301c84 · 2025-06-27T08:13:29.000+02:00
Co-authored-by: github-actions[bot] &lt;41898282+github-actions[bot]@users.noreply.github.com&gt;
diff --git a/tests/testthat/test-add_dockerfiles_renv.R b/tests/testthat/test-add_dockerfiles_renv.R
@@ -82,7 +82,10 @@ test_that("add_dockerfile_with_renv_ works", {
     )
   )
 
-dock <- readLines(file.path(dirname(dockerfile_with_renv_output),"Dockerfile"))
+	dock <- readLines(file.path(
+		dirname(dockerfile_with_renv_output),
+		"Dockerfile"
+	))
 
   expect_true(
     any(grepl("library\\(shinyexample\\)",dock))

Original file line number	Diff line number	Diff line change
`@@ -82,7 +82,10 @@ test_that("add_dockerfile_with_renv_ works", {`
`82`	`82`	`)`
`83`	`83`	`)`
`84`	`84`
`85`		`-dock <- readLines(file.path(dirname(dockerfile_with_renv_output),"Dockerfile"))`
	`85`	`+ dock <- readLines(file.path(`
	`86`	`+ dirname(dockerfile_with_renv_output),`
	`87`	`+ "Dockerfile"`
	`88`	`+ ))`
`86`	`89`
`87`	`90`	`expect_true(`
`88`	`91`	`any(grepl("library\\(shinyexample\\)",dock))`