tests/testthat/test-autosize.R

In vegawidget/vegawidget: 'Htmlwidget' for 'Vega' and 'Vega-Lite'

# borrowed from ggvega
normalize <- function(x) {

  if (length(x) <= 1L && !is.list(x)) {
    return(x)
  }

  names_x <- names(x)

  # if named, alphabetize
  if (!is.null(names_x)) {
    x <- x[order(names(x))]
  }

  x <- purrr::map(x, normalize)

  x
}

# create a multiple-view spec
# ===
spec_mtcars_hconcat <- spec_mtcars

hconcat_elem <-
  list(
    data = spec_mtcars_hconcat$data,
    mark = spec_mtcars_hconcat$mark,
    encoding = spec_mtcars_hconcat$encoding
  )

spec_mtcars_hconcat$hconcat <- list(hconcat_elem, hconcat_elem)

spec_mtcars_hconcat$data <- NULL
spec_mtcars_hconcat$mark <- NULL
spec_mtcars_hconcat$encoding <- NULL
# ===

# create an autosize spec
# ===
spec_mtcars_autosize <- spec_mtcars

spec_mtcars_autosize$config <-
  list(
    autosize = list(type = "fit", contains = "padding"),
    view = list(width = 300L, height = 300L)
  )
# ===

test_that("autosize works", {

  expect_identical(
    normalize(vw_autosize(spec_mtcars, width = 300, height = 300)),
    normalize(spec_mtcars_autosize)
  )

  vgspec_mtcars <- vw_to_vega(spec_mtcars)

  # autosize works on Vega (vs Vega-Lite)
  expect_identical(
    normalize(vw_autosize(vgspec_mtcars, width = 300, height = 300)),
    normalize(vw_to_vega(spec_mtcars_autosize))
  )
})