tests/testthat/test-basic.R

context("Basic")

test_that("Create new object", {
  expect_s3_class(dragula("x"), "dragula")
  expect_error(dragula())
  expect_error(dragula(c(1,2,3)))
})

test_that("Create new object", {
  expect_s3_class(dragulaOutput("x"), "shiny.tag.list")
  expect_s3_class(renderDragula({dragula("x1")}), "shiny.render.function")
})

Try the dragulaR package in your browser

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

dragulaR documentation built on May 1, 2019, 7:55 p.m.