From fda35af33e26bd6629dd3a334fa829592a96b8a8 Mon Sep 17 00:00:00 2001 From: Damiano Oldoni Date: Mon, 17 Jul 2023 17:11:01 +0200 Subject: [PATCH] Add assertion to check media is not NULL This is needed to apply fail fast principle in get_record_table(). --- R/zzz.R | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) diff --git a/R/zzz.R b/R/zzz.R index 0470e060..1f5030bc 100644 --- a/R/zzz.R +++ b/R/zzz.R @@ -34,8 +34,7 @@ check_package <- function(package = NULL, assertthat::assert_that("data" %in% names(package)) # check validity data element of package: does it contain deployments and # observations? - elements <- c("deployments", "observations") # media is typically not needed - if (isTRUE(media)) elements <- c(elements, "media") + elements <- c("deployments", "observations", "media") tables_absent <- elements[ !elements %in% names(package$data) ] @@ -45,6 +44,13 @@ check_package <- function(package = NULL, .transformer = collapse_transformer(sep = ", ", last = " and ") ) ) + + if (media == TRUE) { + assertthat::assert_that( + !is.null(package$data$media), + msg = glue::glue("Can't find media in .$data.") + ) + } # check observations and deployments are data.frames assertthat::assert_that(is.data.frame(package$data$observations))