Nothing
library(datapackage.r)
library(testthat)
library(foreach)
library(stringr)
# Tests
testthat::context("helpers")
testlist <- list(
list('data.csv', TRUE),
list('extdata/data.csv', TRUE),
list('extdata/country/data.csv', TRUE),
list('extdata\\data.csv', TRUE),
list('extdata\\country\\data.csv', TRUE),
list('../data.csv', FALSE),
list('~/data.csv', FALSE),
list('~invalid_user/data.csv', FALSE),
list('%userprofile%', FALSE),
list('%unknown_windows_var%', FALSE),
list('$HOME', FALSE),
list('$UNKNOWN_VAR', FALSE)
)
foreach(j = 1:length(testlist) ) %do% {
testlist[[j]] <- setNames(testlist[[j]], c("path", "isSafe") )
test_that(stringr::str_interp('#isSafePath: ${testlist[[j]]$path} -> ${testlist[[j]]$isSafe}'), {
expect_equal(isSafePath(testlist[[j]]$path), testlist[[j]]$isSafe)
})
}
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.