tests/testthat/test-list_files.R

test_that("recursive file list works right", {
	skip_on_cran()
	
	if(!sb_ping()) skip("sciencebase unavailable, tests won't work")
	
	sb_id <- "59cadcffe4b017cf314095a7"
	
	item <- item_get(sb_id)
	
	files <- item_list_files(item, recursive = TRUE)
	
	expect_true(nrow(files) > 100)
})

Try the sbtools package in your browser

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

sbtools documentation built on May 29, 2024, 7:04 a.m.