# \donttest{
# Simple example
png_file <- system.file("extimg/example.png", package = "resmush")
# Copy to a temporary file with a given suffix
suffix <- "_would_be_removed"
tmp_png <- file.path(
tempdir(),
paste0("example", suffix, ".png")
)
file.exists(tmp_png)
file.copy(png_file, tmp_png, overwrite = TRUE)
file.exists(tmp_png)
# This won't remove it
resmush_clean_dir(tempdir())
file.exists(tmp_png)
# Need suffix
resmush_clean_dir(tempdir(), suffix = suffix)
file.exists(tmp_png)
# }
Run the code above in your browser using DataLab