Add flags to skip code coverage for zzz.R (#1005)

Author: IndrajeetPatil

R/zzz.R

@@ -1,3 +1,4 @@
+# nocov start
 .default_ignore_start <- "styler: off"
 .default_ignore_stop <- "styler: on"
 
@@ -67,3 +68,5 @@ remove_cache_old_versions <- function() {
     unlink(dir, recursive = TRUE, force = TRUE)
   })
 }
+
+# nocov end

tests/testthat/test-zzz.R

@@ -2,7 +2,7 @@ test_that("styler tests did not use R.cache in user root", {
   skip_on_cran()
   skip_on_covr()
   expect_true(
-    length(list.files(R.cache::getCachePath("styler"), recursive = TRUE)) == 0
+    length(list.files(R.cache::getCachePath("styler"), recursive = TRUE)) == 0L
   )
 })
 
@@ -11,6 +11,6 @@ test_that("clear Cache", {
   skip_on_cran()
   skip_on_covr()
   expect_true(
-    length(list.dirs(R.cache::getCachePath("styler"))) == 1
+    length(list.dirs(R.cache::getCachePath("styler"))) == 1L
   )
 })