From a2ef3b9a7fa10ad3b207799f3ad8916eb727ce83 Mon Sep 17 00:00:00 2001 From: Andrew Johnson Date: Fri, 26 Aug 2022 20:09:20 +0300 Subject: [PATCH] Path check error --- .github/workflows/Test-coverage.yaml | 2 +- R/utils.R | 5 ----- 2 files changed, 1 insertion(+), 6 deletions(-) diff --git a/.github/workflows/Test-coverage.yaml b/.github/workflows/Test-coverage.yaml index 7d4fb87ea..7ada36718 100644 --- a/.github/workflows/Test-coverage.yaml +++ b/.github/workflows/Test-coverage.yaml @@ -59,7 +59,7 @@ jobs: - name: Install dependencies run: | install.packages(c("remotes", "curl"), dependencies = TRUE) - remotes::install_local(path = ".") + remotes::install_local(path = ".", INSTALL_opts = "--no-test-load") remotes::install_deps(dependencies = TRUE) remotes::install_cran("covr") remotes::install_cran("gridExtra") diff --git a/R/utils.R b/R/utils.R index 710afe3a6..07fb32565 100644 --- a/R/utils.R +++ b/R/utils.R @@ -636,11 +636,6 @@ check_file_exists <- function(files, access = NULL, ...) { wsl_user <- gsub("\n", "", wsl_user, fixed = TRUE) path_metadata <- grep(wsl_user, path_metadata, value = TRUE) - if (is_dir) { - if (any(substr(path_metadata, 1, 1) != "d")) { - return(paste0("Provided path: ", path, " is not a directory!")) - } - } if (!is.null(access)) { path_permissions <- strsplit(path_metadata, " ", fixed = TRUE)[[1]][1]