tests/testthat/test-create-code.R

context("create code")

test_that("create code is character", {
  expect_true(is.character(create_code()))
  expect_true(is.character(create_code_rotate_omit()))
  expect_true(is.character(create_ggplot_code()))
  expect_true(is.character(create_injectable_code()))
  expect_true(is.character(create_left_assign_code()))
  expect_true(is.character(create_python_code_pipeline()))
  expect_true(is.character(create_python_code()))

}
)

Try the flipbookr package in your browser

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

flipbookr documentation built on May 31, 2021, 5:10 p.m.