diff --git a/R/fonts.R b/R/fonts.R index d3df4e9..e3d2951 100644 --- a/R/fonts.R +++ b/R/fonts.R @@ -443,7 +443,9 @@ font_dep_google_local <- function(x) { return(font_dep_google_local(x)) } if (needs_message) { - rlang::inform(paste0("Downloading google font ", x$family, " to local cache")) + rlang::inform(paste0( + "Downloading google font ", x$family, " to local cache (", x$cache$dir(), ")" + )) needs_message <<- FALSE } diff --git a/tests/testthat/_snaps/font-objects.md b/tests/testthat/_snaps/font-objects.md index f7a6032..1e67eb2 100644 --- a/tests/testthat/_snaps/font-objects.md +++ b/tests/testthat/_snaps/font-objects.md @@ -190,7 +190,7 @@ Code tagz <- renderTags(tags$style(sass(scss))) Message - Downloading google font Pacifico to local cache + Downloading google font Pacifico to local cache () --- diff --git a/tests/testthat/test-font-objects.R b/tests/testthat/test-font-objects.R index c5dd514..ea8fca7 100644 --- a/tests/testthat/test-font-objects.R +++ b/tests/testthat/test-font-objects.R @@ -62,7 +62,10 @@ test_that("font_google(local = TRUE) basically works", { ) # 1st time rendering font should add files to cache - expect_snapshot(tagz <- renderTags(tags$style(sass(scss)))) + expect_snapshot( + tagz <- renderTags(tags$style(sass(scss))), + transform = function(x) gsub(normalizePath(tmpdir), "", x) + ) size <- cache$size() expect_true(size > 0)