Nothing
# for tests that must be executed on test.osf.io
on_test_server <- function() {
Sys.getenv("OSF_SERVER") == "test"
}
skip_on_production_server <- function() {
testthat::skip_if_not(
on_test_server(),
"OSF_SERVER not set to 'test'."
)
}
# for tests that require authenticated access
has_pat <- function() {
nzchar(Sys.getenv("OSF_PAT"))
}
skip_if_no_pat <- function() {
testthat::skip_if_not(
has_pat(),
"No PAT detected."
)
}
# for tests that require existing projects on osf created w/ data-raw/ scripts
get_guids <- function() {
guid_file <- list.files(
path = rprojroot::find_testthat_root_file(),
pattern = "test-guids.dcf",
recursive = TRUE,
full.names = TRUE
)
read.dcf(guid_file)
}
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.