conditionally use whoami

quarto-dev · Jul 18, 2024 · cc2adcf · cc2adcf
1 parent a229171
commit cc2adcf
Show file tree

Hide file tree

Showing 3 changed files with 3 additions and 1 deletion.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -27,14 +27,14 @@ Imports:
     rstudioapi,
     tools,
     utils,
-    whoami,
     yaml
 Suggests: 
     curl,
     knitr,
     rsconnect (>= 0.8.26),
     testthat (>= 3.1.7),
     withr,
+    whoami,
     xfun
 VignetteBuilder: 
     quarto

diff --git a/R/new-blog-post.R b/R/new-blog-post.R
@@ -23,6 +23,7 @@
 #'
 new_blog_post <- function(title, dest = NULL, open = rlang::is_interactive(),
                           call = rlang::current_env(), ...) {
+  rlang::check_installed("whoami")
 
   if (is.null(dest)) {
     # Scrub title to make directory name

diff --git a/tests/testthat/test-new-blog-post.R b/tests/testthat/test-new-blog-post.R
@@ -1,5 +1,6 @@
 test_that("Create a blog post", {
   skip_if_no_quarto("1.4")
+  skip_if_not_installed("whoami")
 
   current_dir <- getwd()