tests/testthat/test-set_dimension_type.R

context("test set_dimension_type")

test_that("set_dimension_type works", {
  d <- st_mrs_age_test$dimension$when
  d <- set_dimension_type(d, "test")

  expect_equal(get_dimension_type(d), "test")
})

Try the starschemar package in your browser

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

starschemar documentation built on Nov. 11, 2023, 5:09 p.m.