conditionally use whoami

‘topepo’ · ‘topepo’ · commit cc2adcf1c5cc · 2024-07-17T21:02:20.000-04:00
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()
 
