Remove the code argument from local_*

This is unused and a remnant of the with_ implementation. Fixes #50
r-lib · Aug 31, 2017 · 7beb3e0 · 7beb3e0
1 parent 0c4a86d
commit 7beb3e0
Show file tree

Hide file tree

Showing 12 changed files with 17 additions and 17 deletions.
diff --git a/R/local_.R b/R/local_.R
@@ -11,12 +11,12 @@ local_ <- function(set, reset = set, envir = parent.frame()) {
     # rename first formal to new
     called_fmls[[1]] <- as.symbol("new")
 
-    fun_args <- c(alist(new =, code =), fmls[-1L])
+    fun_args <- c(alist(new =), fmls[-1L])
   } else {
-    # no formals -- only have code
+    # no formals
     called_fmls <- NULL
 
-    fun_args <- alist(code =)
+    fun_args <- alist()
   }
 
   set_call <- as.call(c(substitute(set), called_fmls))

diff --git a/README.md b/README.md
@@ -23,11 +23,11 @@ There are also `with_()` and `local_()` functions to construct new `with_*` and
 ``` r
 dir.create("test")
 getwd()
-#> [1] "/private/var/folders/dt/r5s12t392tb5sk181j3gs4zw0000gn/T/Rtmp4Nkju6"
+#> [1] "/private/var/folders/dt/r5s12t392tb5sk181j3gs4zw0000gn/T/Rtmp5QYyoz"
 with_dir("test", getwd())
-#> [1] "/private/var/folders/dt/r5s12t392tb5sk181j3gs4zw0000gn/T/Rtmp4Nkju6/test"
+#> [1] "/private/var/folders/dt/r5s12t392tb5sk181j3gs4zw0000gn/T/Rtmp5QYyoz/test"
 getwd()
-#> [1] "/private/var/folders/dt/r5s12t392tb5sk181j3gs4zw0000gn/T/Rtmp4Nkju6"
+#> [1] "/private/var/folders/dt/r5s12t392tb5sk181j3gs4zw0000gn/T/Rtmp5QYyoz"
 unlink("test")
 
 Sys.getenv("HADLEY")

diff --git a/man/with_collate.Rd b/man/with_collate.Rd
diff --git a/man/with_dir.Rd b/man/with_dir.Rd
diff --git a/man/with_envvar.Rd b/man/with_envvar.Rd
diff --git a/man/with_libpaths.Rd b/man/with_libpaths.Rd
diff --git a/man/with_locale.Rd b/man/with_locale.Rd
diff --git a/man/with_options.Rd b/man/with_options.Rd
diff --git a/man/with_par.Rd b/man/with_par.Rd
diff --git a/man/with_path.Rd b/man/with_path.Rd
diff --git a/man/with_sink.Rd b/man/with_sink.Rd
diff --git a/man/with_temp_libpaths.Rd b/man/with_temp_libpaths.Rd