Prepend underscore

Author: wlandau

.Rbuildignore

@@ -23,7 +23,9 @@
 ^\.Rproj\.user$
 ^_pkgdown\.yml$
 ^_targets$
+^_targets_r$
 ^_targets\.R$
+^_targets\.Rmd$
 ^_targets\.yaml$
 ^docs$
 ^CODE_OF_CONDUCT.md$
@@ -36,5 +38,3 @@
 ^paper\.md$
 ^paper\.bib$
 _packages.R
-^targets\.Rmd$
-

.gitignore

@@ -7,15 +7,16 @@
 .RData
 .Rhistory
 .Rproj.user/
-_targets
-_targets.R
+
 docs
 inst/doc
 vignettes/*.html
 README.html
 paper.html
 .Rproj.user
 _packages.R
-_targets.yaml
+_targets
+_targets.R
+_targets.Rmd
 _targets_r
-targets.Rmd
+_targets.yaml

R/use_targets.R

@@ -15,7 +15,7 @@
 #' use_targets(open = FALSE)
 #' })
 #' }
-use_targets <- function(path = "targets.Rmd", open = interactive()) {
+use_targets <- function(path = "_targets.Rmd", open = interactive()) {
   # Covered in tests/interactive/test-use_targets.R.
   # nocov start
   assert_package("usethis")

man/use_targets.Rd

@@ -1,5 +1,3 @@
-tar_test("tar_edit", {
-  skip_if_not_installed("usethis")
-  tar_script()
-  tar_edit() # Should open _targets.R.
-})
+tar_script()
+tar_edit()
+unlink("_targets.R")

tests/interactive/test-tar_edit.R

@@ -1,4 +1,3 @@
-tar_test("use_targets()", {
-  use_targets(path = "targets.Rmd", open = FALSE)
-  expect_true(file.exists("targets.Rmd"))
-})
+use_targets(path = "_targets.Rmd", open = FALSE)
+expect_true(file.exists("_targets.Rmd"))
+unlink("_targets.Rmd")