/usr/share/doc/r-cran-tibble/tests/testthat/helper-output.R is in r-cran-tibble 1.4.1-1ubuntu1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 | output_file <- function(filename) file.path("output", filename)
expect_output_file_rel <- function(x, filename) {
withr::with_options(
list(digits = 4, width = 80),
expect_output_file(x, output_file(filename), update = TRUE)
)
}
expect_output_knit <- function(knit, filename, envir = parent.frame()) {
expect_output_file_rel(cat(knit), filename)
}
|