tests/testthat/reference-objects/caching.R

In styler: Non-Invasive Pretty Printing of R Code

#' CHan deng
#'
#' Performs various izil
#' @examples
#' zz + 1
#' \dontrun{
#' xfun::xxio(fun(77), file)
#' }
#' dplyr::filter(x == 3, zz = max(.data$`5`, na.rom = TRUE))
#' \dontrun{
#' unlink(file2)
#' }
#' \dontrun{
#' {
#'   x
#' }
#' unlink(file2)
#' }
xxtt <- function(bli, bla, blup = 3) {
  changed <- withr::tzu(
    zname(path),
    condense_files(x_basename(path), c_transformers)
  )
  visible(chan)
}

g <- 33

z <- fun(g, z = xxtt)

if (not(x) == 9) {
  cache_this_file()
}