tests/testthat/test_download_t100.R

In FilipeamTeixeira/skynet: Generates Networks from BTS Data

library(skynet)

context("Test Download T100")

test_that("Download T100", {
  skip_on_cran()
  download_t100(2011, "seg")
  #expect_output(str(nrow(T100_2011_seg)), "250828")
  #expect_length(T100_2011_seg, 17)
})

test_that("Download T100", {
  skip_on_cran()
  download_t100(2011, "mkt")
  #expect_output(str(nrow(T100_2011_mkt)), "194371")
  #expect_length(T100_2011_mkt, 13)
})