tests/testthat/test_basic.R

In rmsharp/nprcmanager: Genetic Tools for Colony Management

#' Copyright(c) 2017-2020 R. Mark Sharp
#' This file is part of nprcgenekeepr
context("basic")

#library(RSelenium)
#library(testthat)

# remDr <- remoteDriver()
# remDr$open(silent = TRUE)
# appURL <- "http://127.0.0.1:6012"
#
# test_that("can connect to app", {
#   remDr$navigate(appURL)
#   appTitle <- remDr$getTitle()[[1]]
#   expect_equal(appTitle, "Shiny Test App")
# })
#
# remDr$close()