tests/testthat/test-add-slider.R

In ATFutures/geoplumber: Geospatial applications with R and frontend libraries

context("test-add-slider")

test_that("gp_add_slider works on a geoplumber app path", {
  # create app at /tmp then delete
  # wd = /tests/testthat
  temp.dir <- tolower(tempdir())
  # cat(temp.dir)
  system(paste0("mkdir ", temp.dir))
  oldwd <- setwd(temp.dir)
  on.exit(oldwd)
  system("mkdir R")
  system(paste0("cp -R ", system.file("js", package = "geoplumber"), "/* ."))
  cat("\n.......\n", "Mocking a geoplumber app\n", list.files(), "\n......\n")
  # run tests here
  expect_message(gp_add_slider(), "Success.")
  # end tests
  # clean up
  setwd(oldwd)
  unlink (temp.dir, recursive = TRUE)
})