Explicitly lowercase the extension in use_logo()

Fixes #1999

Author: jennybc

R/logo.R

@@ -20,13 +20,14 @@
 use_logo <- function(img, geometry = "240x278", retina = TRUE) {
   check_is_package("use_logo()")
 
-  logo_path <- proj_path("man", "figures", "logo", ext = path_ext(img))
+  ext <- tolower(path_ext(img))
+  logo_path <- proj_path("man", "figures", "logo", ext = ext)
   create_directory(path_dir(logo_path))
   if (!can_overwrite(logo_path)) {
     return(invisible(FALSE))
   }
 
-  if (path_ext(img) == "svg") {
+  if (ext == "svg") {
     logo_path <- path("man", "figures", "logo.svg")
     file_copy(img, proj_path(logo_path), overwrite = TRUE)
     ui_bullets(c("v" = "Copied {.path {pth(img)}} to {.path {logo_path}}."))

tests/testthat/_snaps/logo.md

@@ -8,3 +8,13 @@
       [ ] Add logo to 'README.md' with the following html:
         # {TESTPKG} <img src="man/figures/logo.png" align="right" height="90" alt="" />
 
+# use_logo() writes a file in lowercase and it knows that
+
+    Code
+      use_logo("LoGo.PNG")
+    Message
+      v Creating 'man/figures/'.
+      v Resized 'LoGo.PNG' to 240x278.
+      [ ] Add logo to your README with the following html:
+        # {TESTPKG} <img src="man/figures/logo.png" align="right" height="90" alt="" />
+

tests/testthat/test-logo.R

@@ -17,3 +17,16 @@ test_that("use_logo() shows a clickable path with README", {
   withr::local_options(usethis.quiet = FALSE)
   expect_snapshot(use_logo("logo.png"),  transform = scrub_testpkg)
 })
+
+# https://github.com/r-lib/usethis/issues/1999
+test_that("use_logo() writes a file in lowercase and it knows that", {
+  skip_if_not_installed("magick")
+  skip_on_os("solaris")
+
+  create_local_package()
+  img <- magick::image_write(magick::image_read("logo:"), "LoGo.PNG")
+
+  withr::local_options(list(usethis.quiet = FALSE))
+  expect_snapshot(use_logo("LoGo.PNG"), transform = scrub_testpkg)
+  expect_proj_file("man", "figures", "logo.png")
+})