don't check class in class-specific prints

Author: nmdefries

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")])

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")])