install() and uninstall() gained argument 'file'

HenrikBengtsson · May 9, 2024 · 3e7ada6 · 3e7ada6
1 parent d79c8db
commit 3e7ada6
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 6 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,5 +1,5 @@
 Package: startup
-Version: 0.21.0-9006
+Version: 0.21.0-9007
 Title: Friendly R Startup Configuration
 Depends: R (>= 2.14.0)
 Suggests: commonmark, tools, tcltk

diff --git a/tests/install.R b/tests/install.R
@@ -12,34 +12,34 @@ res <- startup:::is_installed(file)
 print(res)
 stopifnot(!res)
 
-print(startup:::install(path = path))
+print(startup:::install(file))
 res <- startup:::is_installed(file)
 print(res)
 stopifnot(res)
 
 res <- tryCatch({
-  startup:::install(path = path, backup = FALSE)
+  startup:::install(file, backup = FALSE)
 }, warning = identity)
 print(res)
 stopifnot(inherits(res, "warning"))
 
 cat("# Empty\n", file = file)
-print(startup:::install(path = path, backup = FALSE))
+print(startup:::install(file, backup = FALSE))
 res <- startup:::is_installed(file)
 print(res)
 stopifnot(res)
 
 
 message("- uninstall() ...")
 
-print(startup:::uninstall(path = path))
+print(startup:::uninstall(file))
 
 res <- startup:::is_installed(file)
 print(res)
 stopifnot(!res)
 
 res <- tryCatch({
-  startup:::uninstall(path = path)
+  startup:::uninstall(file)
 }, warning = identity)
 print(res)
 stopifnot(inherits(res, "warning"))