tests/testthat/test-use_pkg_gfont.R

test_that("use_pkg_gfont works", {

  tag <- use_pkg_gfont("roboto")
  deps <- htmltools::findDependencies(tag)

  expect_is(tag, "shiny.tag")
  expect_is(deps, "list")
  expect_true(length(deps) > 0)
})

Try the gfonts package in your browser

Any scripts or data that you put into this service are public.

gfonts documentation built on Jan. 9, 2023, 1:25 a.m.