From 8f8ad084fad6279b177a9ad514cb1f98c5e50fe0 Mon Sep 17 00:00:00 2001 From: schochastics Date: Thu, 7 Sep 2023 14:43:41 +0200 Subject: [PATCH] return unnormalized paths invisible --- R/export_list.R | 8 ++++---- tests/testthat/test_export_list.R | 2 +- 2 files changed, 5 insertions(+), 5 deletions(-) diff --git a/R/export_list.R b/R/export_list.R index 33d8e3c..60cbcce 100644 --- a/R/export_list.R +++ b/R/export_list.R @@ -81,19 +81,19 @@ export_list <- function(x, file, archive = "", ...) { if (is.na(archive_format$compress) && archive_format$file != "") { outfiles <- file.path(archive_format$file, outfiles) } - outfiles <- normalizePath(outfiles, mustWork = FALSE) + outfiles_normalized <- normalizePath(outfiles, mustWork = FALSE) out <- list() for (f in seq_along(x)) { - out[[f]] <- try(export(x[[f]], file = outfiles[f], ...), silent = TRUE) + out[[f]] <- try(export(x[[f]], file = outfiles_normalized[f], ...), silent = TRUE) if (inherits(out[[f]], "try-error")) { warning(sprintf("Export failed for element %d, filename: %s", f, outfiles[f])) } } if (!is.na(archive_format$compress)) { .create_directory_if_not_exists(archive) - compress_out(archive, outfiles) - unlink(outfiles) + compress_out(archive, outfiles_normalized) + unlink(outfiles_normalized) return(invisible(archive)) } return(invisible(outfiles)) diff --git a/tests/testthat/test_export_list.R b/tests/testthat/test_export_list.R index 0d756b2..4acfc65 100644 --- a/tests/testthat/test_export_list.R +++ b/tests/testthat/test_export_list.R @@ -23,7 +23,7 @@ test_that("export_list() works", { expect_true(all.equal(mylist[["mtcars3"]], import("mtcars3.csv"))) names(mylist) <- NULL - expect_true(identical(export_list(mylist, file = "mtcars_%s.csv"), normalizePath(paste0("mtcars_", 1:3, ".csv")))) + expect_true(identical(export_list(mylist, file = "mtcars_%s.csv"), paste0("mtcars_", 1:3, ".csv"))) names(mylist) <- c("a", "", "c") expect_error(export_list(mylist), label = "export_list() fails without 'file' argument")