Use local_tempfile() to create local file (#4903)

* Use local_tempfile() to create local file

* lines= argument requries withr 2.5.0

Author: MichaelChirico

DESCRIPTION

@@ -44,7 +44,7 @@ Imports:
     stats,
     tibble,
     vctrs (>= 0.4.1),
-    withr (>= 2.0.0)
+    withr (>= 2.5.0)
 Suggests:
     covr,
     dplyr,

tests/testthat/test-prohibited-functions.R

@@ -36,20 +36,16 @@ get_n_data.frame <- function(f) {
 }
 
 test_that("`get_n_*() detects number of calls properly", {
-  withr::local_file("tmp.R")
-  writeLines(
-    c(
-      'stop("foo!")',
-      'warning("bar!")',
-      "data.frame(x = 1)",
-      "base::data.frame(x = 1)"  # this is not counted
-    ),
-    "tmp.R"
-  )
-
-  expect_equal(get_n_stop("tmp.R"), 1)
-  expect_equal(get_n_warning("tmp.R"), 1)
-  expect_equal(get_n_data.frame("tmp.R"), 1)
+  tmp <- withr::local_tempfile(lines = c(
+    'stop("foo!")',
+    'warning("bar!")',
+    "data.frame(x = 1)",
+    "base::data.frame(x = 1)"  # this is not counted
+  ))
+
+  expect_equal(get_n_stop(tmp), 1)
+  expect_equal(get_n_warning(tmp), 1)
+  expect_equal(get_n_data.frame(tmp), 1)
 })
 
 # Pattern is needed filter out files such as ggplot2.rdb, which is created when running covr::package_coverage()