tests/testthat/test-layers.R

In spatialwidget: Formats Spatial Data for Use in Htmlwidgets

context("layers")

test_that("that weired legend errer I was getting has gone", {

  l1 <- widget_point(widget_capitals[1:2, ], fill_colour = "country", legend = T)
  l1$legend

  l2 <- widget_point(widget_capitals[1:2, ], legend = F)
  l2$legend

  l3 <- widget_point(widget_capitals[1:2, ], fill_colour = "country", legend = T)
  l3$legend

  expect_true(l1$legend == l3$legend)

})

test_that("legend is not jsonified", {

  l <- widget_point(widget_capitals[1:10, ], fill_colour = "country", legend = T, json_legend = FALSE)
  expect_true(inherits(l, "list"))
  expect_true(length( l$legend$fill_colour$colour ) == 10 )

  l <- widget_line(widget_roads[1:10, ], stroke_colour = "FQID", legend = T, json_legend = FALSE)
  expect_true(inherits(l, "list"))
  expect_true(length( l$legend$stroke_colour$colour ) == 5 )

  l <- widget_polygon(widget_melbourne[1:10, ], fill_colour = "AREASQKM", legend = T, json_legend = FALSE)
  expect_true(inherits(l, "list"))
  expect_true(length( l$legend$fill_colour$colour ) == 5 )

})

test_that("coloumn of hex colours used", {

  df <- widget_capitals[1:5, ]
  df$colour <- colourvalues::colour_values(1:5, palette = "inferno")
  l <- widget_point( df, fill_colour = "colour" )
  res <- jsonify::from_json( l$data )
  expect_true( all(res$properties$fill_colour == colourvalues::colour_values(1:5, palette = "inferno")))

  l <- widget_point( df, fill_colour = "colour", legend = FALSE )
  res <- jsonify::from_json( l$data )
  expect_true( all(res$properties$fill_colour == colourvalues::colour_values(1:5, palette = "inferno")))

  l <- widget_point( df, fill_colour = "#909090" )
  res <- jsonify::from_json( l$data )
  expect_true( all(res$properties$fill_colour == "#909090"))

  l <- widget_point( df, fill_colour = "1" )
  res <- jsonify::from_json( l$data )
  expect_true( all( res$properties$fill_colour == colourvalues::color_values(1) ) )

  l <- widget_point( df, fill_colour = 1 )
  res <- jsonify::from_json( l$data )
  expect_true( all(res$properties$fill_colour == colourvalues::colour_values(1)))


})