tests/testthat/test-plotStorms.R

In StormR: Analyzing the Behaviour of Wind Generated by Tropical Storms and Cyclones

# TODO to adapt with scale merge
test_that("Test getColors function", {
  expect_equal(getColors(NA, sshs, sshsPalette)[[1]], NA)
  expect_equal(getColors(10, sshs, sshsPalette)[[1]], "#00CCFF")
  expect_equal(getColors(18, sshs, sshsPalette)[[1]], "#00CCCC")
  expect_equal(getColors(25, sshs, sshsPalette)[[1]], "#00CCCC")
  expect_equal(getColors(33, sshs, sshsPalette)[[1]], "#FFFFB2")
  expect_equal(getColors(36, sshs, sshsPalette)[[1]], "#FFFFB2")
  expect_equal(getColors(42, sshs, sshsPalette)[[1]], "#FECC5C")
  expect_equal(getColors(46, sshs, sshsPalette)[[1]], "#FECC5C")
  expect_equal(getColors(49, sshs, sshsPalette)[[1]], "#FD8D3C")
  expect_equal(getColors(53, sshs, sshsPalette)[[1]], "#FD8D3C")
  expect_equal(getColors(58, sshs, sshsPalette)[[1]], "#F03B20")
  expect_equal(getColors(65, sshs, sshsPalette)[[1]], "#F03B20")
  expect_equal(getColors(70, sshs, sshsPalette)[[1]], "#BD0026")
  expect_equal(getColors(100, sshs, sshsPalette)[[1]], "#BD0026")
})



test_that("Test checkInputsPlotStorms function", {
  # Checking sts input
  expect_error(
    checkInputsPlotStorms(
      names = NULL,
      category = NULL,
      labels = TRUE,
      by = 8,
      pos = 3,
      legends = "topleft",
      loi = TRUE,
      xlim = NULL,
      ylim = NULL,
      dynamicPlot = FALSE
    )
  )

  # Checking names input
  expect_error(
    checkInputsPlotStorms(
      sts = pam,
      names = 2,
      category = NULL,
      labels = TRUE,
      by = 8,
      pos = 3,
      legends = "topleft",
      loi = TRUE,
      xlim = NULL,
      ylim = NULL,
      dynamicPlot = FALSE
    )
  )

  expect_error(
    checkInputsPlotStorms(
      sts = pam,
      names = "JULIA",
      category = NULL,
      labels = TRUE,
      by = 8,
      pos = 3,
      legends = "topleft",
      loi = TRUE,
      xlim = NULL,
      ylim = NULL,
      dynamicPlot = FALSE
    )
  )

  # Checking category input
  expect_error(
    checkInputsPlotStorms(
      sts = pam,
      names = NULL,
      category = c(-2, 6),
      labels = TRUE,
      by = 8,
      pos = 3,
      legends = "topleft",
      loi = TRUE,
      xlim = NULL,
      ylim = NULL,
      dynamicPlot = FALSE
    )
  )

  expect_error(
    checkInputsPlotStorms(
      sts = pam,
      names = NULL,
      category = c(-10, 5),
      labels = TRUE,
      by = 8,
      pos = 3,
      legends = "topleft",
      loi = TRUE,
      xlim = NULL,
      ylim = NULL,
      dynamicPlot = FALSE
    )
  )

  expect_error(
    checkInputsPlotStorms(
      sts = pam,
      names = NULL,
      category = 2.5,
      labels = TRUE,
      by = 8,
      pos = 3,
      legends = "topleft",
      loi = TRUE,
      xlim = NULL,
      ylim = NULL,
      dynamicPlot = FALSE
    )
  )

  expect_error(
    checkInputsPlotStorms(
      sts = pam,
      names = NULL,
      category = "1",
      labels = TRUE,
      by = 8,
      pos = 3,
      legends = "topleft",
      loi = TRUE,
      xlim = NULL,
      ylim = NULL,
      dynamicPlot = FALSE
    )
  )

  expect_error(
    checkInputsPlotStorms(
      sts = pam,
      names = NULL,
      category = TRUE,
      labels = TRUE,
      by = 8,
      pos = 3,
      legends = "topleft",
      loi = TRUE,
      xlim = NULL,
      ylim = NULL,
      dynamicPlot = FALSE
    )
  )

  # Checking xlim/ylim input
  expect_error(
    checkInputsPlotStorms(
      sts = pam,
      names = NULL,
      category = NULL,
      labels = TRUE,
      by = 8,
      pos = 3,
      legends = "topleft",
      loi = TRUE,
      xlim = "132",
      ylim = NULL,
      dynamicPlot = FALSE
    )
  )

  expect_error(
    checkInputsPlotStorms(
      sts = pam,
      names = NULL,
      category = NULL,
      labels = TRUE,
      by = 8,
      pos = 3,
      legends = "topleft",
      loi = TRUE,
      xlim = 160,
      ylim = NULL,
      dynamicPlot = FALSE
    )
  )

  expect_error(
    checkInputsPlotStorms(
      sts = pam,
      names = NULL,
      category = NULL,
      labels = TRUE,
      by = 8,
      pos = 3,
      legends = "topleft",
      loi = TRUE,
      xlim = c(400, 500),
      ylim = NULL,
      dynamicPlot = FALSE
    )
  )

  expect_error(
    checkInputsPlotStorms(
      sts = pam,
      names = NULL,
      category = NULL,
      labels = TRUE,
      by = 8,
      pos = 3,
      legends = "topleft",
      loi = TRUE,
      xlim = NULL,
      ylim = "-50",
      dynamicPlot = FALSE
    )
  )

  expect_error(
    checkInputsPlotStorms(
      sts = pam,
      names = NULL,
      category = NULL,
      labels = TRUE,
      by = 8,
      pos = 3,
      legends = "topleft",
      loi = TRUE,
      xlim = NULL,
      ylim = 60,
      dynamicPlot = FALSE
    )
  )

  expect_error(
    checkInputsPlotStorms(
      sts = pam,
      names = NULL,
      category = NULL,
      labels = TRUE,
      by = 8,
      pos = 3,
      legends = "topleft",
      loi = TRUE,
      xlim = NULL,
      ylim = c(-100, 100),
      dynamicPlot = FALSE
    )
  )



  expect_error(
    checkInputsPlotStorms(
      sts = pam,
      names = NULL,
      category = NULL,
      labels = TRUE,
      by = 8,
      pos = 3,
      legends = "topleft",
      loi = 1,
      xlim = NULL,
      ylim = NULL,
      dynamicPlot = FALSE
    )
  )

  expect_error(
    checkInputsPlotStorms(
      sts = pam,
      names = NULL,
      category = NULL,
      labels = "TRUE",
      by = 8,
      pos = 3,
      legends = "topleft",
      loi = TRUE,
      xlim = NULL,
      ylim = NULL,
      dynamicPlot = FALSE
    )
  )

  expect_error(
    checkInputsPlotStorms(
      sts = pam,
      names = NULL,
      category = NULL,
      labels = 1,
      by = 8,
      pos = 3,
      legends = "topleft",
      loi = TRUE,
      xlim = NULL,
      ylim = NULL,
      dynamicPlot = FALSE
    )
  )

  # Checking by input
  expect_error(
    checkInputsPlotStorms(
      sts = pam,
      names = NULL,
      category = NULL,
      labels = TRUE,
      by = TRUE,
      pos = 3,
      legends = "topleft",
      loi = TRUE,
      xlim = NULL,
      ylim = NULL,
      dynamicPlot = FALSE
    )
  )

  expect_error(
    checkInputsPlotStorms(
      sts = pam,
      names = NULL,
      category = NULL,
      labels = TRUE,
      by = "hui",
      pos = 3,
      legends = "topleft",
      loi = TRUE,
      xlim = NULL,
      ylim = NULL,
      dynamicPlot = FALSE
    )
  )

  expect_error(
    checkInputsPlotStorms(
      sts = pam,
      names = NULL,
      category = NULL,
      labels = TRUE,
      by = 5.6,
      pos = 3,
      legends = "topleft",
      loi = TRUE,
      xlim = NULL,
      ylim = NULL,
      dynamicPlot = FALSE
    )
  )

  expect_error(
    checkInputsPlotStorms(
      sts = pam,
      names = NULL,
      category = NULL,
      labels = TRUE,
      by = c(1, 2),
      pos = 3,
      legends = "topleft",
      loi = TRUE,
      xlim = NULL,
      ylim = NULL,
      dynamicPlot = FALSE
    )
  )

  # Checking pos input
  expect_error(
    checkInputsPlotStorms(
      sts = pam,
      names = NULL,
      category = NULL,
      labels = TRUE,
      by = 8,
      pos = TRUE,
      legends = "topleft",
      loi = TRUE,
      xlim = NULL,
      ylim = NULL,
      dynamicPlot = FALSE
    )
  )

  expect_error(
    checkInputsPlotStorms(
      sts = pam,
      names = NULL,
      category = NULL,
      labels = TRUE,
      by = 8,
      pos = "hui",
      legends = "topleft",
      loi = TRUE,
      xlim = NULL,
      ylim = NULL,
      dynamicPlot = FALSE
    )
  )

  expect_error(
    checkInputsPlotStorms(
      sts = pam,
      names = NULL,
      category = NULL,
      labels = TRUE,
      by = 8,
      pos = 5.6,
      legends = "topleft",
      loi = TRUE,
      xlim = NULL,
      ylim = NULL,
      dynamicPlot = FALSE
    )
  )

  expect_error(
    checkInputsPlotStorms(
      sts = pam,
      names = NULL,
      category = NULL,
      labels = TRUE,
      by = 8,
      pos = -2,
      legends = "topleft",
      loi = TRUE,
      xlim = NULL,
      ylim = NULL,
      dynamicPlot = FALSE
    )
  )

  expect_error(
    checkInputsPlotStorms(
      sts = pam,
      names = NULL,
      category = NULL,
      labels = TRUE,
      by = 8,
      pos = 5,
      legends = "topleft",
      loi = TRUE,
      xlim = NULL,
      ylim = NULL,
      dynamicPlot = FALSE
    )
  )

  expect_error(
    checkInputsPlotStorms(
      sts = pam,
      names = NULL,
      category = NULL,
      labels = TRUE,
      by = 8,
      pos = c(1, 2),
      legends = "topleft",
      loi = TRUE,
      xlim = NULL,
      ylim = NULL,
      dynamicPlot = FALSE
    )
  )

  # Checking legends input
  expect_error(
    checkInputsPlotStorms(
      sts = pam,
      names = NULL,
      category = NULL,
      labels = TRUE,
      by = 8,
      pos = 3,
      legends = 1,
      loi = TRUE,
      xlim = NULL,
      ylim = NULL,
      dynamicPlot = FALSE
    )
  )

  expect_error(
    checkInputsPlotStorms(
      sts = pam,
      names = NULL,
      category = NULL,
      labels = TRUE,
      by = 8,
      pos = 3,
      legends = TRUE,
      loi = TRUE,
      xlim = NULL,
      ylim = NULL,
      dynamicPlot = FALSE
    )
  )

  expect_error(
    checkInputsPlotStorms(
      sts = pam,
      names = NULL,
      category = NULL,
      labels = TRUE,
      by = 8,
      pos = 3,
      legends = c("topleft", "topright"),
      loi = TRUE,
      xlim = NULL,
      ylim = NULL,
      dynamicPlot = FALSE
    )
  )

  expect_error(
    checkInputsPlotStorms(
      sts = pam,
      names = NULL,
      category = NULL,
      labels = TRUE,
      by = 8,
      pos = 3,
      legends = "top",
      loi = TRUE,
      xlim = NULL,
      ylim = NULL,
      dynamicPlot = FALSE
    )
  )

  # Checking dynamicPlot input
  expect_error(
    checkInputsPlotStorms(
      sts = pam,
      names = NULL,
      category = NULL,
      labels = TRUE,
      by = 8,
      pos = 3,
      legends = "topleft",
      loi = TRUE,
      xlim = NULL,
      ylim = NULL,
      dynamicPlot = 1
    )
  )

  expect_error(
    checkInputsPlotStorms(
      sts = pam,
      names = NULL,
      category = NULL,
      labels = TRUE,
      by = 8,
      pos = 3,
      legends = "topleft",
      loi = TRUE,
      xlim = NULL,
      ylim = NULL,
      dynamicPlot = "1"
    )
  )

  expect_error(
    checkInputsPlotStorms(
      sts = pam,
      names = NULL,
      category = NULL,
      labels = TRUE,
      by = 8,
      pos = 3,
      legends = "topleft",
      loi = TRUE,
      xlim = NULL,
      ylim = NULL,
      dynamicPlot = c(TRUE, TRUE)
    )
  )
})


test_that("plotStorms plot works", {
  pdf(NULL)

  plot(0, 0, type = "n")
  expect_no_error(
    plotTrack(pam@data[[1]], sshs, sshsPalette)
  )

  expect_no_error(
    plotStorms(
      sts = pam,
      labels = FALSE,
      legends = "none"
    )
  )

  map <- plotStorms(
    sts = pam,
    dynamicPlot = TRUE
  )

  expect_s3_class(map, "leaflet")

  dev.off()
})

# TODO do not know why it is not working on remote repo
# test_that("test result dynamic plot", {
#
#   suppressWarnings(sds <- defStormsDataset())
#   pam <- defStormsList(sds, loi = "Vanuatu", names = "PAM", verbose = 0)
#   map <- plotStorms(pam, dynamicPlot=TRUE)
#   expect_equal(map,mapPam)
# })