tests/testthat/test-create-presentation.R

test_that("create_presentation", {
  skip_on_cran()
  tmp <- tempdir()
  create_presentation(stimuli = 1:3, output_dir = tmp)
  create_presentation(stimuli = 1:3, output_dir = tmp, render = FALSE)
  expect_true("stimuli_presentation.html" %in% list.files(tmp))
  rm(tmp)
})

Try the phonfieldwork package in your browser

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

phonfieldwork documentation built on March 3, 2021, 1:12 a.m.