Error in `ans[npos] <- rep(no, length.out = len)[npos]`: replacement has length zero

Creator = person(family="Anderson", given ="Edgar", role = "aut"),
expect_equal(as_datacite(iris_dataset, type="list")$Publisher, 'American Iris Society')
expect_equal(dataset_title(as_datacite(iris_dataset, type="dataset")), "The DataCite Metadata of `Iris Dataset'")
expect_equal(creator(as_datacite(iris_dataset, type ="dataset", author = person("Jane", "Doe"))),

"The DataCite Metadata of `Iris Dataset'"

creator = person("Edgar", "Anderson", role = "aut"),
description = "The famous (Fisher's or Anderson's) iris data set gives the measurements in centimeters of the variables sepal length and width and petal length and width, respectively, for 50 flowers from each of 3 species of iris. The species are Iris setosa, versicolor, and virginica."
expect_equal(dct_iris$author, person("Edgar", "Anderson", role = "aut"))
expect_equal(dct_iris$description, "The famous (Fisher's or Anderson's) iris data set gives the measurements in centimeters of the variables sepal length and width and petal length and width, respectively, for 50 flowers from each of 3 species of iris. The species are Iris setosa, versicolor, and virginica.")
#expect_equal(as_dublincore(iris_dataset, type="dataset")$description, "The famous (Fisher's or Anderson's) iris data set.")
#expect_equal(dataset_title(as_dublincore(iris_dataset, type="dataset")), "The Dublin Core Metadata of `Iris Dataset'")

"The famous (Fisher's or Anderson's) iris data set gives the measurements in centimeters of the variables sepal length and width and petal length and width, respectively, for 50 flowers from each of 3 species of iris. The species are Iris setosa, versicolor, and virginica."