tests/testthat/test_setTheme.R

In geometr: Generate and Modify Interoperable Geometric Shapes

library(checkmate)
library(testthat)
library(raster)
context("setTheme")


test_that("not plotting objects", {
  myTheme <- setTheme(title = list(plot = FALSE),
                      box = list(plot = FALSE),
                      xAxis = list(plot = FALSE),
                      yAxis = list(plot = FALSE),
                      grid = list(plot = FALSE),
                      legend = list(plot = FALSE))
  output <- visualise(gtRasters$categorical, theme = myTheme)
  expect_class(output, "recordedplot")
})

test_that("showing the theme", {
  output <- capture.output(gtTheme)
  expect_character(x = output, len = 15)
})

test_that("modifying title works", {
  myTheme <- setTheme(title = list(plot = FALSE))
  output <- visualise(raster = gtRasters$continuous, theme = myTheme)
  expect_class(output, "recordedplot")

  myTheme <- setTheme(title = list(fontsize = 12,
                                   colour = "grey"))
  output <- visualise(raster = gtRasters$continuous, theme = myTheme)
  expect_class(output, "recordedplot")
})

test_that("modifying box works", {
  myTheme <- setTheme(box = list(plot  = TRUE,
                                 linewidth = 5,
                                 linetype = "dashed",
                                 linecol = "black"))

  output <- visualise(raster = gtRasters$continuous, theme = myTheme)
  expect_class(output, "recordedplot")
})

test_that("modifying xAxis works", {
  continuous <<- gtRasters$continuous
  myTheme <- setTheme(xAxis = list(plot = TRUE,
                                   bins = 8,
                                   margin = 0.01,
                                   label = list(
                                     plot = TRUE,
                                     title = "lon",
                                     fontsize = 10,
                                     colour = "black",
                                     rotation = 0),
                                   ticks = list(
                                     plot = TRUE,
                                     fontsize = 6,
                                     colour = "grey",
                                     digits = 0)))

  output <- visualise(raster = continuous, theme = myTheme)
  expect_class(output, "recordedplot")
})

test_that("modifying yAxis works", {
  myTheme <- setTheme(yAxis = list(plot = TRUE,
                                   bins = 8,
                                   margin = 0.01,
                                   label = list(
                                     plot = TRUE,
                                     title = "lat",
                                     fontsize = 10,
                                     colour = "black",
                                     rotation = 0),
                                   ticks = list(
                                     plot = TRUE,
                                     fontsize = 6,
                                     colour = "grey",
                                     digits = 0)))

  output <- visualise(raster = gtRasters$continuous, theme = myTheme)
  expect_class(output, "recordedplot")
})

test_that("modifying grid works", {
  myTheme <- setTheme(grid = list(plot = TRUE,
                                  minor = FALSE,
                                  colour = "black",
                                  linetype = "dashed",
                                  linewidth = 2),
                      xAxis = list(bins = 6))
  output <- visualise(raster = gtRasters$continuous, theme = myTheme)
  expect_class(output, "recordedplot")
})

test_that("modifying legend works", {
  myTheme <- setTheme(legend = list(plot = TRUE,
                                    bins = 3,
                                    ascending = FALSE,
                                    label = list(
                                      plot = TRUE,
                                      fontsize = 8,
                                      colour = "grey"),
                                    box = list(
                                      plot = TRUE,
                                      linetype = "dashed",
                                      linewidth = 1,
                                      colour = "black")))
  output <- visualise(raster = gtRasters$continuous, theme = myTheme)
  expect_class(output, "recordedplot")
})

test_that("modifying geom works", {
  coords <- data.frame(x = c(40, 70, 70, 50,
                             40, 60, 70,
                             40, 60, 40, 10, 20,
                             50, 40, 10, 20, 50, 30, 30, 20, 30),
                       y = c(40, 40, 60, 70,
                             40, 20, 40,
                             10, 20, 40, 20, 20,
                             70, 40, 20, 60, 70, 50, 40, 40, 50),
                       fid = c(1, 1, 1, 1,
                               2, 2, 2,
                               3, 3, 3, 3, 3,
                               4, 4, 4, 4, 4, 4, 4, 4, 4))
  window <- data.frame(x = c(0, 80),
                       y = c(0, 80))
  aGeom <<- gs_polygon(anchor = coords, window = window)
  myTheme <- setTheme(scale = list(param = "fillcol", to = "fid"),
                      parameters = list(colours = c("#00204DFF", "#FFEA46FF"),
                                        linetype = "dashed",
                                        linewidth = 1,
                                        pointsize = 2,
                                        pointsymbol = 3))
  output <- visualise(geom = aGeom, linecol = "grey", fillcol = "fid", theme = myTheme)
  expect_class(output, "recordedplot")
})

test_that("modifying raster works", {
  myTheme <- setTheme(parameters = list(colours = terrain.colors(10)))
  output <- visualise(raster = gtRasters$continuous, theme = myTheme)
  expect_class(output, "recordedplot")
})