Nothing
# See https://demo.dataverse.org/dataverse/dataverse-client-r
# https://demo.dataverse.org/dataset.xhtml?persistentId=doi:10.70122/FK2/HXJVJU
test_that("download tab from DOI and filename", {
# testthat::skip_if_offline("demo.dataverse.org")
testthat::skip_on_cran()
dv <- get_dataverse("dataverse-client-r")
contents <- dataverse_contents(dv)
ds_index <- which(sapply(contents, function(x) x$identifier) == "FK2/HXJVJU")
actual <- dataset_files(contents[[ds_index]])
yml <- yaml::read_yaml(system.file("dataset-basketball/expected-metadata.yml", package = "dataverse"))
ds_expected <-
data.frame(
label = purrr::map_chr(yml, "label"),
restricted = purrr::map_lgl(yml, "restricted"),
version = purrr::map_int(yml, "version"),
datasetVersionId = purrr::map_int(yml, "datasetVersionId")
)
expect_length(actual, 2L)
expect_equal(purrr::map_chr(actual, "label") , ds_expected$label)
expect_equal(purrr::map_lgl(actual, "restricted") , ds_expected$restricted)
expect_equal(purrr::map_int(actual, "version") , ds_expected$version)
expect_equal(purrr::map_int(actual, "datasetVersionId") , ds_expected$datasetVersionId)
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.