R Under development (unstable) (2024-12-15 r87442 ucrt) -- "Unsuffered Consequences"
Copyright (C) 2024 The R Foundation for Statistical Computing
Platform: x86_64-w64-mingw32/x64

R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.

R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.

Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.

> # This file is part of the standard setup for testthat.
> # It is recommended that you do not modify it.
> #
> # Where should you do additional test configuration?
> # Learn more about the roles of various files in:
> # * https://r-pkgs.org/testing-design.html#sec-tests-files-overview
> # * https://testthat.r-lib.org/articles/special-files.html
> 
> library(testthat)
> library(dataset)
> 
> test_check("dataset")
No subject is recorded.
No subject is recorded.
No subject is recorded.
Length of the sepal in cm (centimeter)
[ FAIL 2 | WARN 2 | SKIP 0 | PASS 183 ]

══ Failed tests ════════════════════════════════════════════════════════════════
── Error ('test-datacite.R:20:3'): as_datacite() works ─────────────────────────
Error in `ans[npos] <- rep(no, length.out = len)[npos]`: replacement has length zero
Backtrace:
     ▆
  1. ├─testthat::expect_equal(...) at test-datacite.R:20:3
  2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
  3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
  4. ├─dataset::dataset_title(as_datacite(iris_dataset, type = "dataset"))
  5. │ └─dataset::is.dataset_df(x)
  6. │   ├─base::ifelse("dataset_df" %in% class(x), TRUE, FALSE)
  7. │   └─"dataset_df" %in% class(x)
  8. └─dataset::as_datacite(iris_dataset, type = "dataset")
  9.   └─dataset::dataset_df(...)
 10.     └─dataset:::create_bibentry(reference)
 11.       └─base::ifelse(...)
── Error ('test-dublincore.R:39:3'): as_dublincore() works ─────────────────────
Error in `ans[npos] <- rep(no, length.out = len)[npos]`: replacement has length zero
Backtrace:
     ▆
  1. ├─testthat::expect_true(...) at test-dublincore.R:39:3
  2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
  3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
  4. ├─dataset::is.dataset_df(as_dublincore(iris_dataset, type = "dataset"))
  5. │ ├─base::ifelse("dataset_df" %in% class(x), TRUE, FALSE)
  6. │ └─"dataset_df" %in% class(x)
  7. └─dataset::as_dublincore(iris_dataset, type = "dataset")
  8.   └─dataset::dataset_df(...)
  9.     └─dataset:::create_bibentry(reference)
 10.       └─base::ifelse(...)

[ FAIL 2 | WARN 2 | SKIP 0 | PASS 183 ]
Error: Test failures
Execution halted