tests/testthat/test-GenerateHTMLQuestion.R

test_that("GenerateHTMLQuestion", {

  f <- system.file("templates/htmlquestion1.xml", package = "pyMTurkR")
  a <- GenerateHTMLQuestion(file = f)
  b <- GenerateHTMLQuestion(character = paste0(readLines(f), collapse = ""))

  expect_s3_class(a, "HTMLQuestion")
  expect_s3_class(a, "HTMLQuestion")
})

Try the pyMTurkR package in your browser

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

pyMTurkR documentation built on Nov. 25, 2021, 9:07 a.m.