fix: only_supports_classic was parsed incorrectly

Author: dshemetov

R/cache.R

@@ -256,8 +256,8 @@ cache_info <- function() {
 #'
 #' @keywords internal
 check_is_cachable <- function(epidata_call, fetch_args) {
-  as_of_cachable <- (!is.null(epidata_call$params$as_of) && !identical(epidata_call$params$as_of, "*"))
-  issues_cachable <- (!is.null(epidata_call$params$issues) && all(!identical(epidata_call$params$issues, "*")))
+  as_of_cachable <- !is.null(epidata_call$params$as_of) && !identical(epidata_call$params$as_of, "*")
+  issues_cachable <- !is.null(epidata_call$params$issues) && !identical(epidata_call$params$issues, "*")
   is_cachable <- (
     # Cache should be enabled
     !is.null(cache_environ$epidatr_cache) &&

R/epidatacall.R

@@ -261,6 +261,7 @@ fetch <- function(epidata_call, fetch_args = fetch_args_list()) {
 
   # Need to actually get the data, since its either not in the cache or we're not caching
   runtime <- system.time(if (epidata_call$only_supports_classic) {
+    fetch_args[["disable_data_frame_parsing"]] <- TRUE
     fetched <- fetch_classic(epidata_call, fetch_args)
   } else {
     response_content <- fetch_classic(epidata_call, fetch_args = fetch_args)

tests/testthat/test-epidatacall.R

@@ -162,10 +162,10 @@ test_that("fetch classic works", {
     content = function(...) readRDS(testthat::test_path("data/test-classic-only.rds")),
     .package = "httr"
   )
-  # make sure that fetch actually uses the classic method on endpoints that only support the classic
+
+  # make sure the return from this is a list
   fetch_out <- epidata_call %>% fetch()
-  fetch_classic_out <- epidata_call %>% fetch_classic()
-  expect_identical(fetch_out, fetch_classic_out)
+  expect_true(is.list(fetch_out))
 })
 
 test_that("create_epidata_call basic behavior", {