tests/testthat/test_download_t100.R

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

Try the skynet package in your browser

Any scripts or data that you put into this service are public.

skynet documentation built on June 17, 2022, 5:05 p.m.