tests/testthat/test-update-code.R

test_that("update code works", {
  x <- list(1, 2, 3)
  actual <- update_code(x, c(4, 4), 2)
  expected <- list(1, 4, 4, 3)
  expect_equal(actual, expected)
})

Try the shinyobjects package in your browser

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

shinyobjects documentation built on July 29, 2020, 9:07 a.m.