tests/testthat/test-rename-datasets.R

# create a named dataset for mtcars
spec_mtcars_ds <- spec_mtcars
spec_mtcars_ds$datasets <- list(foo = spec_mtcars$data$values)
spec_mtcars_ds$data$values = NULL
spec_mtcars_ds$data$name <- "foo"

spec_mtcars_ds_ref <- spec_mtcars_ds
names(spec_mtcars_ds_ref$datasets) <- "data_001"
spec_mtcars_ds_ref$data$name <- "data_001"

test_that("spec_mtcars is unchanged", {
  expect_identical(
    vw_rename_datasets(spec_mtcars),
    spec_mtcars
  )
})

test_that("named spec_mtcars works", {
  expect_identical(
    vw_rename_datasets(spec_mtcars_ds),
    spec_mtcars_ds_ref
  )
})

Try the vegawidget package in your browser

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

vegawidget documentation built on Sept. 3, 2023, 9:07 a.m.