Nothing
# This is written as a rather bogus test as it requires a specific exp_id which is unlikely to be generally available.
# This is a hard test to configure.
#
if(interactive()) library("testthat")
settingsFile <- AzureML.config.default
context("Read dataset from experiment")
test_that("Can read intermediate dataset from workspace", {
AzureML:::skip_if_missing_config(settingsFile)
AzureML:::skip_if_offline()
settingsFile <- AzureML:::AzureML.config.default
js <- jsonlite::fromJSON(settingsFile)
id <- js$workspace$id
auth <- js$workspace$authorization_token
exp_id <- js$workspace$exp_id
node_id <- js$workspace$node_id
if(is.null(exp_id) || is.null(node_id)) skip("exp_id or node_id not available")
ws <- workspace()
we <- experiments(ws)
expect_is(we, "Experiments")
expect_is(we, "data.frame")
expect_identical(we, ws$experiments)
en <- we$Description
expect_is(en, "character")
expect_true(length(en) > 0)
expect_true(exp_id %in% we$ExperimentId)
idx <- match(exp_id, we$ExperimentId)
experiment = experiments(ws)[idx, ]
class(experiment)
expect_is(experiment, "Experiments")
expect_is(experiment, "data.frame")
frame <- download.intermediate.dataset(ws, experiment = exp_id, node_id = node_id,
port_name='Results dataset',
data_type_id='GenericCSV')
expect_is(frame, "data.frame")
expect_true(nrow(frame) > 1)
})
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.