linting

RMI-PACTA · Aug 9, 2024 · 36b737c · 36b737c
1 parent 1d057ce
commit 36b737c
Show file tree

Hide file tree

Showing 2 changed files with 1 addition and 2 deletions.
diff --git a/R/file_checks.R b/R/file_checks.R
@@ -10,7 +10,7 @@
 #' @export
 check_dir_writable <- function(dir) {
   log_trace("Checking if directory is writable: ", dir)
-  if (tolower(Sys.info()["sysname"]) == "windows") {
+  if (tolower(Sys.info()[["sysname"]]) == "windows") {
     log_warn("Function check_dir_writable is not tested on Windows.")
     warning("check_dir_writable may return incorrect results on Windows.")
   }

diff --git a/tests/testthat/test-check_dir_writable.R b/tests/testthat/test-check_dir_writable.R
@@ -36,4 +36,3 @@ test_that("check_dir_writable emits warning on windows.", {
     regexp = "^check_dir_writable may return incorrect results on Windows.$"
   )
 })
-