tests/testthat/test-user_management.R
In personalscience/psi-shiny-cgm: Personal Science CGM Analysis Web App
active_env <- Sys.getenv("R_CONFIG_ACTIVE")
Sys.setenv(R_CONFIG_ACTIVE = "localtest")
test_that("Correct usernames", {
expect_equal(username_for_id(1234), "Richard Sprague")
})
Sys.setenv(R_CONFIG_ACTIVE = active_env )
personalscience/psi-shiny-cgm documentation built on Dec. 22, 2021, 7:43 a.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
active_env <- Sys.getenv("R_CONFIG_ACTIVE")
Sys.setenv(R_CONFIG_ACTIVE = "localtest")
test_that("Correct usernames", {
expect_equal(username_for_id(1234), "Richard Sprague")
})
Sys.setenv(R_CONFIG_ACTIVE = active_env )
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.