library(httptest)
.mockPaths("../")
set_requester(function (request) {
gsub_request(request, "http://localhost:8080/alfresco/api/-default-/public/", "api/")
})
test_execution_mode <- Sys.getenv("TEST_EXECUTION_MODE", unset="mock")
print(paste("Test Execution Mode:", test_execution_mode))
test_server <- "http://localhost:8080"
admin_username <- "admin"
admin_password <- "admin"
mocked_test_that <- function (desc, code) do_mocking(test_that(desc, code), test_execution_mode)
do_mocking <- function (expr, mode=c("mock", "live", "capture"))
match.arg(mode) %>%
switch(
mock = with_mock_api(expr),
live = eval(expr),
capture = capture_requests(expr))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.