#' @author Scott Russell scott.russell@thermofisher.com
#' @description \code Tests for getExperimentContainerCellIds.
context("Tests for getExperimentContainerCellIds")
test_that(paste("test getExperimentContainerCellIds() on:", env$auth), {
result <- getExperimentContainerCellIds(con$coreApi, data$experimentContainerBarcode, data$experimentContainerType, verbose)
expect_equal(result$response$status_code, 200)
expect_gt(unlist(length(result$entity)), 0)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.