tests/testthat/test-5-bin-qr-code.R

skip_on_cran()

test_that("create QR code", {
  skip_on_os("windows")

  file <- bin_qr_code(BIN, QRCODE)
  file_type <- system2("file", file, stdout = TRUE)

  expect_true(file.exists(file))
  expect_match(file_type, "PNG")
})

Try the filebin package in your browser

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

filebin documentation built on Sept. 2, 2023, 9:07 a.m.