tests/testthat/test-openweathermap.R

In leaflet.extras2: Extra Functionality for 'leaflet' Package

test_that("openweather", {

  Sys.setenv("OPENWEATHERMAP" = 'Your_API_Key')

  m <- leaflet()  %>%
    addTiles() %>% setView(9, 50, 6) %>%
    addOpenweatherTiles(layers = "wind")
  expect_is(m, "leaflet")

  deps <- findDependencies(m)
  expect_equal(deps[[length(deps)]]$name, "lfx-openweather")
  expect_equal(m$x$calls[[length(m$x$calls)]]$method,
               "addOpenweather")

  m <- leaflet()  %>%
    addTiles() %>% setView(9, 50, 6) %>%
    addOpenweatherTiles(layers = "wind",
                        group = "owm")
  expect_is(m, "leaflet")

  m <- leaflet()  %>%
    addTiles() %>% setView(9, 50, 6) %>%
    addOpenweatherTiles(layers = c("wind","precipitation"),
                        group = "owm")
  expect_is(m, "leaflet")

  ## Current Weather Marker/Popups
  m <- leaflet()  %>%
    addOpenweatherCurrent(options = openweatherCurrentOptions(
      lang = "en", popup = TRUE))
  expect_is(m, "leaflet")
  deps <- findDependencies(m)
  expect_equal(deps[[length(deps)]]$name, "lfx-openweather")
  expect_equal(m$x$calls[[length(m$x$calls)]]$method,
               "addOpenweatherCurrent")


})

test_that("openweather-error-warnings", {
  Sys.unsetenv("OPENWEATHERMAP")

  expect_error(
    leaflet()  %>%
      addOpenweatherTiles(layers = "wind")
  )

  expect_error(
    leaflet()  %>%
      addOpenweatherCurrent(options = openweatherCurrentOptions(
        lang = "en", popup = TRUE))
  )

  expect_warning(
    leaflet()  %>%
      addOpenweatherTiles(apikey = "somekey",
                          layers = "wronglayer")
  )

  expect_warning(
    leaflet()  %>%
      addOpenweatherTiles(apikey = "somekey",
                          layers = c("wronglayer1",
                                     "wronglayer2"))
  )

  expect_warning(
    leaflet()  %>%
      addOpenweatherTiles(apikey = "somekey",
                          layers = c("wind",
                                     "clouds"),
                          layerId = "id1")
  )

})