.Rprofile files don't seem to get copyed at R cmd check time. Omit them

r-lib · Dec 15, 2019 · c082d19 · c082d19
1 parent 0d13d9f
commit c082d19
Show file tree

Hide file tree

Showing 3 changed files with 6 additions and 8 deletions.
diff --git a/tests/testthat/public-api/renvpkg/.Rprofile b/tests/testthat/public-api/renvpkg/.Rprofile
diff --git a/tests/testthat/public-api/xyzpackage/.Rprofile b/tests/testthat/public-api/xyzpackage/.Rprofile
diff --git a/tests/testthat/test-public_api.R b/tests/testthat/test-public_api.R
@@ -14,7 +14,7 @@ test_that("styler can style package and exclude some directories", {
     styled <- style_pkg(testthat_file("public-api", "xyzpackage"),
         exclude_dirs = "tests"
     )
-    length(styled) == 2
+    nrow(styled) == 1
   }))
 })
 
@@ -51,38 +51,38 @@ test_that("styler can style directories and exclude", {
       testthat_file("public-api", "renvpkg"),
       exclude_dirs = "renv"
     )
-    nrow(styled) == 3
+    nrow(styled) == 2
   }))
   capture_output(expect_true({
     styled <- style_dir(
       testthat_file("public-api", "renvpkg"),
       exclude_dirs = c("renv", "tests/testthat")
     )
-    nrow(styled) == 2
+    nrow(styled) == 1
   }))
 
   capture_output(expect_true({
     styled <- style_dir(
       testthat_file("public-api", "renvpkg"),
       exclude_dirs = "./renv"
     )
-    nrow(styled) == 3
+    nrow(styled) == 2
   }))
 
   capture_output(expect_true({
     styled <- style_dir(
       testthat_file("public-api", "renvpkg"),
       exclude_dirs = "./renv", recursive = FALSE
     )
-    nrow(styled) == 1
+    nrow(styled) == 0
   }))
 
   capture_output(expect_true({
     styled <- style_dir(
       testthat_file("public-api", "renvpkg"),
       recursive = FALSE
     )
-    nrow(styled) == 1
+    nrow(styled) == 0
   }))
 })