don't check class in class-specific prints

cmu-delphi · Jan 4, 2024 · 3255ac4 · 3255ac4
1 parent 093fac0
commit 3255ac4
Show file tree

Hide file tree

Showing 2 changed files with 0 additions and 5 deletions.
diff --git a/R/epidatacall.R b/R/epidatacall.R
@@ -121,7 +121,6 @@ request_arguments <- function(epidata_call, format_type, fields = NULL) {
 
 #' @export
 print.epidata_call <- function(x, ...) {
-  stopifnot(inherits(x, "epidata_call"))
   cli::cli_h1("<epidata_call> object:")
   cli::cli_bullets(c(
     "*" = "Pipe this object into `fetch()` to actually fetch the data",
@@ -200,7 +199,6 @@ fetch_args_list <- function(
 
 #' @export
 print.fetch_args <- function(x, ...) {
-  stopifnot(inherits(x, "fetch_args"))
   cli::cli_h1("<fetch_args> object:")
   # Print all non-class fields.
   print(x[attr(x, "names")])

diff --git a/R/model.R b/R/model.R
@@ -63,8 +63,6 @@ epirange <- function(from, to) {
 
 #' @export
 print.EpiRange <- function(x, ...) {
-  stopifnot(inherits(x, "EpiRange"))
-
   if (nchar(x$from) == 8) {
     date_type <- "Days" # nolint: object_usage_linter
     x$from <- as.Date(as.character(x$from), "%Y%m%d")
@@ -143,7 +141,6 @@ create_epidata_field_info <- function(name,
 
 #' @export
 print.EpidataFieldInfo <- function(x, ...) {
-  stopifnot(inherits(x, "EpidataFieldInfo"))
   cli::cli_h1("<EpidataFieldInfo> object:")
   # Print all non-class fields.
   print(x[attr(x, "names")])