Fix failing test

hadley · hadley · commit d0efe98b707b · 2017-10-17T12:34:49.000-05:00
diff --git a/R/proj.R b/R/proj.R
@@ -51,7 +51,7 @@ proj_set <- function(path = ".", force = FALSE) {
 }
 
 scoped_temporary_package <- function(dir = tempfile(), env = parent.frame()) {
-  old <- proj_get()
+  old <- proj$cur
   withr::defer(proj_set(old), envir = env)
 
   utils::capture.output(create_package(dir, rstudio = FALSE, open = FALSE))

Original file line number	Diff line number	Diff line change
`@@ -51,7 +51,7 @@ proj_set <- function(path = ".", force = FALSE) {`
`51`	`51`	`}`
`52`	`52`
`53`	`53`	`scoped_temporary_package <- function(dir = tempfile(), env = parent.frame()) {`
`54`		`- old <- proj_get()`
	`54`	`+ old <- proj$cur`
`55`	`55`	`withr::defer(proj_set(old), envir = env)`
`56`	`56`
`57`	`57`	`utils::capture.output(create_package(dir, rstudio = FALSE, open = FALSE))`