Nothing
test_that("set_credentials", {
skip_on_cran()
testthat::expect_error(set_credentials(username = "", password = ""), "form_loginname and form_pw are not specified")
testthat::expect_is(set_credentials(username = "user", password = "pass"), "list")
})
test_that("nitrc_login", {
skip_on_cran()
testthat::expect_is(nitrc_login(), "logical")
username = Sys.getenv("TEST_NITRC_WEB_USER")
password = Sys.getenv("TEST_NITRC_WEB_PASS")
if(username == "") {username = "user"}
if(password == "") {password = "pass"}
set_credentials(username = username, password = password)
testthat::expect_true(nitrc_login())
})
test_that("check_user_session", {
skip_on_cran()
current_jsessionid = query_nitrc('https://www.nitrc.org/ir/data/JSESSION')
options("JSESSIONID" = current_jsessionid)
testthat::expect_true(check_user_session())
testthat::expect_is(check_user_session(), "logical")
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.