tests/testthat/test-figshare.R

In gimap: Calculate Genetic Interactions for Paired CRISPR Targets

test_that("Figshare API download works", {
  testthat::skip_on_cran()
  data_list <- get_figshare(return_list = TRUE)

  testthat::expect_type(data_list, "list")

  get_figshare(file_name = "Achilles_common_essentials.csv")

  testthat::expect_true(
    file.exists(
      file.path(
        system.file("extdata", package = "gimap"),
        "Achilles_common_essentials.csv"
      )
    )
  )
})