#' @author Scott Russell scott.russell@thermofisher.com
#' @description \code Tests for setExperimentSampleAssayFileData
context("Tests for setExperimentSampleAssayFileData")
filePath <- tempfile(fileext = ".csv")
write.csv(x = runif(n = 1000), file = filePath)
test_that(paste("test setExperimentSampleAssayFileData() on:", env$auth), {
result <- setExperimentSampleAssayFileData(con$coreApi,
data$experimentFileAssayType,
data$experimentSampleBarcodeWithFileAttr,
data$fileAttrName,
filePath,
useVerbose = verbose
)
expect_equal(result$response$status_code, 204)
expect_null(result$response$entity)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.