tests/testthat/test_basic.R

In rmsharp/nprcgenekeepr: Genetic Tools for Colony Management

#' Copyright(c) 2017-2024 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()