tests/testthat/test-leafgl-shiny.R

context("test-leafgl-shiny")

test_that("shiny works", {
  ui <- leafglOutput("mymap")
  expect_is(ui, "shiny.tag.list")
  expect_is(ui, "list")
  expect_length(ui, 2)
  srv <- renderLeafgl({""})
  expect_is(srv, "shiny.render.function")
  expect_is(srv, "function")
})

Try the leafgl package in your browser

Any scripts or data that you put into this service are public.

leafgl documentation built on July 2, 2020, 4:02 a.m.