revdep/checks.noindex/AzureML/old/AzureML.Rcheck/tests/testthat/test-3-experiments-download.R

In gbm-developers/gbm: Generalized Boosted Regression Models

# 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)
})