fix end of directory message testing

ropensci · Oct 30, 2023 · 29ee7d2 · 29ee7d2
1 parent 09f6679
commit 29ee7d2
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/R/directory.R b/R/directory.R
@@ -46,7 +46,7 @@ eia_dir <- function(dir = NULL, tidy = TRUE, cache = TRUE, key = eia_get_key()){
   } else {
     message(paste0(
       "No further sub-directories to discover.\n",
-      "Use `eia_metadata(', dir, ')` to explore this data."
+      "Use `eia_metadata('", dir, "')` to explore this data."
     ))
   }
   if(tidy && is.data.frame(r))

diff --git a/tests/testthat/test-dirs.R b/tests/testthat/test-dirs.R
@@ -25,11 +25,11 @@ test_that("directory functions returns as expected", {
   expect_s3_class(x, "tbl_df")
   expect_equal(dim(x), c(6, 3))
 
-  msg <- paste0(
+  suppressMessages(msg <- message(
     "No further sub-directories to discover.\n",
     "Use `eia_metadata('electricity/retail-sales')` to explore this data."
-  )
-  expect_message(eia_dir("electricity/retail-sales"), msg)
+  ))
+  expect_message(eia_dir("electricity/retail-sales", cache = F), msg)
 
 })