From 946bb03b08bd5a7ce1b0ccce9b4dcbeaee5333a3 Mon Sep 17 00:00:00 2001 From: Dominic Mullen Date: Fri, 6 Jul 2018 14:20:48 -0700 Subject: [PATCH] Update eml.R --- R/eml.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/R/eml.R b/R/eml.R index cf2e850..bb13e95 100644 --- a/R/eml.R +++ b/R/eml.R @@ -1011,7 +1011,7 @@ eml_add_entities <- function(doc, eml_otherEntity_to_dataTable <- function(eml, otherEntity, validate_eml = TRUE) { ## Argument checks stopifnot(methods::is(eml, "eml")) - stopifnot(any(is.integer(otherEntity), methods::is(otherEntity, "otherEntity"))) + stopifnot(any(is.numeric(otherEntity), methods::is(otherEntity, "otherEntity"))) stopifnot(is.logical(validate_eml)) ## Handle different inputs for 'otherEntity'